wild

expansions/lflist.conf

@@ -70,6 +70,8 @@
 9990228 0
 9990233 0
 10080420 0
+10100000 0
+10199990 0
 10736541 0
 11163044 0
 11450000 0
@@ -111,6 +113,7 @@
 12678871 0
 13131365 0
 14000129 0
+14000600 0
 14000703 0
 14000704 0
 14000706 0
@@ -319,6 +322,14 @@
 33502914 0
 33918637 0
 34116023 0
+34500310 0
+34500320 0
+34500330 0
+34500340 0
+34500350 0
+34500360 0
+34500370 0
+34500380 0
 35697557 0
 37818797 0
 40010436 0
@@ -461,7 +472,6 @@
 60002068 0
 60002069 0
 60002070 0
-60002071 0
 60002072 0
 60002073 0
 60002074 0
@@ -480,6 +490,36 @@
 61777317 0
 63288533 0
 65130400 0
+65130420 0
+65130421 0
+65130422 0
+65130423 0
+65130424 0
+65130425 0
+65130426 0
+65130427 0
+65130428 0
+65130429 0
+65130430 0
+65130431 0
+65130432 0
+65130433 0
+65130434 0
+65130435 0
+65130436 0
+65130437 0
+65130438 0
+65130439 0
+65130440 0
+65130441 0
+65130442 0
+65130443 0
+65130444 0
+65130445 0
+65130450 0
+65130451 0
+65130452 0
+65130460 0
 67200701 0
 67200702 0
 67200703 0
@@ -491,13 +531,6 @@
 67200710 0
 67200800 0
 67200801 0
-67200810 0
-67200812 0
-67200814 0
-67200816 0
-67200818 0
-67200819 0
-67200820 0
 70052400 0
 70052402 0
 70052404 0
@@ -582,6 +615,14 @@
 72100538 0
 76372772 0
 77693530 0
+77723303 0
+77723304 0
+77723305 0
+77723387 0
+77724137 0
+77770002 0
+77770010 0
+77770015 0
 79029185 0
 79200001 0
 79200002 0
@@ -1063,14 +1104,20 @@
 98920032 0
 98920042 0
 98920055 0
+98920093 0
 98920114 0
 98920183 0
 98920188 0
 98920195 0
 98920198 0
 98920203 0
+98920204 0
+98920208 0
+98920240 0
 98920245 0
+98920254 0
 98920289 0
+98920291 0
 98920305 0
 98920313 0
 98920339 0
@@ -1095,6 +1142,8 @@
 98940019 0
 98940020 0
 98940039 0
+98940044 0
+98940046 0
 98941044 0
 98941045 0
 99550610 0
@@ -1583,7 +1632,6 @@
 29098630 1
 40009391 1
 82209007 1
-88880006 1
 88880743 1
 91060003 1
 98920006 1
@@ -1699,7 +1747,6 @@
 22348144 1
 22348145 1
 22348170 1
-31000009 1
 31000017 1
 31400063 1
 53799184 1
@@ -3409,7 +3456,6 @@
 55100039 0
 79029485 0
 130001243 0
-9910349 1
 14010023 1
 14010099 1
 79023004 2
@@ -7363,7 +7409,6 @@
 30015100 0
 30015500 0
 30020000 0
-31000009 0
 31000013 2
 31400001 0
 31400002 0

expansions/script/c14000600.lua

+--超深层编码-零 脱机病毒
+local m=14000600
+local cm=_G["c"..m]
+cm.named_with_CodeNull=1
+function cm.initial_effect(c)
+	--change effect
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetRange(LOCATION_MZONE+LOCATION_HAND+LOCATION_DECK)
+	e1:SetCondition(cm.eccon)
+	e1:SetTarget(cm.ectg)
+	e1:SetOperation(cm.ecop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE+LOCATION_HAND+LOCATION_DECK)
+	e2:SetCondition(cm.spcon)
+	e2:SetTarget(cm.sptg)
+	e2:SetOperation(cm.spop)
+	c:RegisterEffect(e2)
+	--search
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_CHAINING)
+	e3:SetRange(LOCATION_MZONE+LOCATION_HAND+LOCATION_DECK)
+	e3:SetCondition(cm.thcon)
+	e3:SetTarget(cm.thtg)
+	e3:SetOperation(cm.thop)
+	c:RegisterEffect(e3)
+end
+function cm.Code0(c)
+	local m=_G["c"..c:GetCode()]
+	return m and m.named_with_CodeNull
+end
+function cm.filter(c)
+	return c:IsRace(RACE_CYBERSE) and c:IsSpecialSummonable(SUMMON_TYPE_LINK)
+end
+function cm.eccon(e,tp,eg,ep,ev,re,r,rp)
+	return re:IsActiveType(TYPE_MONSTER) and ((re:GetHandler():IsRace(RACE_CYBERSE) and rp==tp) or Duel.IsPlayerAffectedByEffect(tp,14000608)) and not re:GetHandler():IsCode(m)
+end
+function cm.spfilter(c,e,tp)
+	return c:IsRace(RACE_CYBERSE) and c:IsLevel(1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.ectg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+end
+function cm.ecop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Group.CreateGroup()
+	Duel.ChangeTargetCard(ev,g)
+	Duel.ChangeChainOperation(ev,cm.repop)
+end
+function cm.repop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+		if #g>0 then
+			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsCode(m)
+end
+function cm.tgfilter(c,e,tp)
+	return c:IsAbleToGrave() and ((c:IsControler(tp) and c:IsFaceup() and c:IsRace(RACE_CYBERSE)) or Duel.IsPlayerAffectedByEffect(tp,14000601))
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and cm.tgfilter(chkc,e,tp) end
+	if chk==0 then return Duel.IsExistingTarget(cm.tgfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local g=Duel.SelectTarget(tp,cm.tgfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc or not tc:IsRelateToEffect(e) then return end
+	if Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) and aux.NecroValleyFilter()(tc) and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
+		Duel.BreakEffect()
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsCode(m)
+end
+function cm.thfilter(c)
+	return cm.Code0(c) and not c:IsCode(m) and c:IsAbleToHand()
+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>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
\ No newline at end of file

expansions/script/c33331905.lua

@@ -41,6 +41,7 @@ function c33331905.fcheck(tp,sg,fc)
 end
 function c33331905.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler() 
+	if not c:IsRelateToEffect(e) then return end 
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
 		or not Duel.IsPlayerCanSpecialSummonMonster(tp,33331905,0x3567,TYPES_NORMAL_TRAP_MONSTER,500,0,4,RACE_THUNDER,ATTRIBUTE_DARK) then return end
 		c:AddMonsterAttribute(TYPE_NORMAL)

expansions/script/c33331906.lua

@@ -41,6 +41,7 @@ function c33331906.fcheck(tp,sg,fc)
 end
 function c33331906.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler() 
+	if not c:IsRelateToEffect(e) then return end 
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
 		or not Duel.IsPlayerCanSpecialSummonMonster(tp,33331906,0x3567,TYPES_NORMAL_TRAP_MONSTER,500,0,4,RACE_THUNDER,ATTRIBUTE_DARK) then return end
 		c:AddMonsterAttribute(TYPE_NORMAL)

expansions/script/c34500310.lua

+local m=34500310
+local cm=_G["c"..m]
+cm.name="破灭龙 甘多拉y"
+function cm.initial_effect(c)
+	c:EnableReviveLimit()
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(c34500310.spcon)
+	e1:SetOperation(c34500310.spop)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
+	e2:SetDescription(aux.Stringid(34500310,0))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1,34500310)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTarget(c34500310.destg)
+	e2:SetOperation(c34500310.desop)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_SET_BASE_ATTACK)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e3:SetValue(c34500310.val)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EFFECT_SET_BASE_DEFENSE)
+	c:RegisterEffect(e4)
+end
+function c34500310.spfilter(c)
+	return c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToRemoveAsCost()
+end
+function c34500310.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c34500310.spfilter,tp,LOCATION_GRAVE,0,2,nil) 
+end
+function c34500310.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c34500310.spfilter,tp,LOCATION_GRAVE,0,2,2,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c34500310.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) or chkc:IsControler(tp) end
+	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetFirst():GetBaseAttack())
+end
+function c34500310.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsControler(1-tp) or tc:IsControler(tp) then
+		local atk=tc:GetBaseAttack()
+		if atk<0 or tc:IsFacedown() then atk=0 end
+		if Duel.Destroy(tc,REASON_EFFECT)~=0 then
+			Duel.Damage(1-tp,atk,REASON_EFFECT)
+		end
+	end
+end
+function c34500310.val(e,c)
+	return math.abs(Duel.GetLP(0)-Duel.GetLP(1))
+end

expansions/script/c34500320.lua

+local m=34500320
+local cm=_G["c"..m]
+cm.name="黑金暴龙的使徒"
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(34500320,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetCountLimit(1,34500320)
+	e1:SetCost(c34500320.cost)
+	e1:SetTarget(c34500320.thtg)
+	e1:SetOperation(c34500320.thop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(34500320,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_REMOVE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCost(c34500320.cost1)
+	e2:SetCountLimit(1,34500321)
+	e2:SetTarget(c34500320.sptg1)
+	e2:SetOperation(c34500320.spop1)
+	c:RegisterEffect(e2)
+end
+function c34500320.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetDecktopGroup(tp,3)
+	if chk==0 then return g:FilterCount(Card.IsAbleToRemoveAsCost,nil,POS_FACEUP)==3
+		and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=4 end
+	Duel.DisableShuffleCheck()
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c34500320.thfilter(c)
+	return c:IsRace(RACE_DRAGON) and c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToHand()
+end
+function c34500320.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c34500320.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c34500320.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c34500320.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
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c34500320.splimit2)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c34500320.splimit2(e,c)
+	return not (c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON))
+end
+function c34500320.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetDecktopGroup(tp,3)
+	if chk==0 then return g:FilterCount(Card.IsAbleToRemoveAsCost,nil,POS_FACEUP)==3 end
+	Duel.DisableShuffleCheck()
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c34500320.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c34500320.filter(c)
+	return c:IsFaceup() and c:IsRace(RACE_DRAGON)
+end
+function c34500320.spop1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
+		local ct=Duel.GetMatchingGroupCount(c34500320.filter,tp,LOCATION_REMOVED,0,nil)
+		if ct>0 then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1:SetValue(ct*300)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
+			c:RegisterEffect(e1)
+		end
+	end
+	Duel.SpecialSummonComplete()
+end

expansions/script/c34500330.lua

+local m=34500330
+local cm=_G["c"..m]
+cm.name="继承龙血的少女"
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(34500330,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,34500330)
+	e1:SetCost(c34500330.cost1)
+	e1:SetTarget(c34500330.sptg1)
+	e1:SetOperation(c34500330.spop1)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(34500330,1))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,34500331)
+	e2:SetCost(c34500330.cost)
+	e2:SetTarget(c34500330.target)
+	e2:SetOperation(c34500330.operation)
+	c:RegisterEffect(e2)
+end
+function c34500330.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetDecktopGroup(tp,3)
+	if chk==0 then return g:FilterCount(Card.IsAbleToRemoveAsCost,nil,POS_FACEUP)==3 end
+	Duel.DisableShuffleCheck()
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c34500330.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c34500330.spop1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
+	end
+	Duel.SpecialSummonComplete()
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c34500330.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c34500330.splimit(e,c)
+	return not (c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON))
+end
+function c34500330.tgfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_DARK)and c:IsRace(RACE_DRAGON) and c:IsAbleToGrave()
+end
+function c34500330.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function c34500330.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c34500330.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c34500330.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c34500330.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c34500330.splimit2)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c34500330.splimit2(e,c)
+	return not (c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON))
+end

expansions/script/c34500340.lua

+local m=34500340
+local cm=_G["c"..m]
+cm.name="黑金暴龙的祭司"
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(34500340,0))
+	e1:SetCategory(CATEGORY_REMOVE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetCountLimit(1,34500340)
+	e1:SetCost(c34500340.cost)
+	e1:SetTarget(c34500340.target)
+	e1:SetOperation(c34500340.activate)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(34500340,1))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_REMOVE)
+	e2:SetCountLimit(1,34500341)
+	e2:SetCost(c34500340.cost)
+	e2:SetTarget(c34500340.target1)
+	e2:SetOperation(c34500340.activate1)
+	c:RegisterEffect(e2)
+end
+function c34500340.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetDecktopGroup(tp,3)
+	if chk==0 then return g:FilterCount(Card.IsAbleToRemoveAsCost,nil,POS_FACEUP)==3 end
+	Duel.DisableShuffleCheck()
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c34500340.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:IsAbleToRemove() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,5,nil)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),PLAYER_ALL,LOCATION_GRAVE)
+end
+function c34500340.splimit1(e,c)
+	return not (c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON))
+end
+function c34500340.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local sg=g:Filter(Card.IsRelateToEffect,nil,e)
+	if sg:GetCount()>0 then
+		Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c34500340.splimit1)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c34500340.filter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c34500340.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_REMOVED) and c34500340.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c34500340.filter,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c34500340.filter,tp,LOCATION_REMOVED,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c34500340.activate1(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	end
+end

expansions/script/c34500350.lua

+local m=34500350
+local cm=_G["c"..m]
+cm.name="金色眼睛的少女"
+function cm.initial_effect(c)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(34500350,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCost(c34500350.cost)
+	e1:SetCountLimit(1,34500350)
+	e1:SetTarget(c34500350.thtg)
+	e1:SetOperation(c34500350.thop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(34500350,1))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_REMOVE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCost(c34500350.cost1)
+	e3:SetCountLimit(1,34500351)
+	e3:SetTarget(c34500350.sptg1)
+	e3:SetOperation(c34500350.spop1)
+	c:RegisterEffect(e3)
+end
+function c34500350.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetDecktopGroup(tp,3)
+	if chk==0 then return g:FilterCount(Card.IsAbleToRemoveAsCost,nil,POS_FACEUP)==3
+		and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=4 end
+	Duel.DisableShuffleCheck()
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c34500350.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetDecktopGroup(tp,3)
+	if chk==0 then return g:FilterCount(Card.IsAbleToRemoveAsCost,nil,POS_FACEUP)==3 end
+	Duel.DisableShuffleCheck()
+	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()
+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
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c34500350.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c34500350.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 c34500350.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c34500350.spop1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
+	end
+	Duel.SpecialSummonComplete()
+end

expansions/script/c34500360.lua

+local m=34500360
+local cm=_G["c"..m]
+cm.name="黑金暴龙的巫女"
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(34500360,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetCountLimit(1,34500360)
+	e1:SetCost(c34500360.cost)
+	e1:SetTarget(c34500360.target1)
+	e1:SetOperation(c34500360.activate1)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(34500350,1))
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_REMOVE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,34500361)
+	e2:SetCost(c34500360.cost)
+	e2:SetOperation(c34500360.activate3)
+	c:RegisterEffect(e2)
+end
+function c34500360.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetDecktopGroup(tp,3)
+	if chk==0 then return g:FilterCount(Card.IsAbleToRemoveAsCost,nil,POS_FACEUP)==3 end
+	Duel.DisableShuffleCheck()
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c34500360.filter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON) and c:IsAbleToHand()
+end
+function c34500360.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c34500360.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c34500360.filter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c34500360.filter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c34500360.activate1(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c34500360.splimit2)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c34500360.splimit2(e,c)
+	return not (c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON))
+end
+function c34500360.activate3(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_IMMUNE_EFFECT)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetTarget(c34500360.target4)
+	e1:SetValue(c34500360.efilter4)
+	e1:SetReset(RESET_PHASE+PHASE_END,2)
+	Duel.RegisterEffect(e1,tp)
+end
+function c34500360.target4(e,c)
+	local te,g=Duel.GetChainInfo(0,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TARGET_CARDS)
+	return (not te or not te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) or not g or not g:IsContains(c)) and c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON)
+end
+function c34500360.efilter4(e,te)
+	return te:GetOwnerPlayer()~=e:GetHandlerPlayer()
+end
\ No newline at end of file

expansions/script/c34500370.lua

+local m=34500370
+local cm=_G["c"..m]
+cm.name="黑金暴龙的降临"
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c34500370.cost)
+	e1:SetTarget(c34500370.target)
+	e1:SetOperation(c34500370.activate)
+	c:RegisterEffect(e1)
+end
+function c34500370.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function c34500370.filter(c)
+	return c:IsRace(RACE_DRAGON) and c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToHand()
+end
+function c34500370.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c34500370.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c34500370.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c34500370.filter,tp,LOCATION_DECK,0,1,2,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c34500370.splimit2)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c34500370.splimit2(e,c)
+	return not (c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON))
+end
\ No newline at end of file

expansions/script/c34500380.lua

+local m=34500380
+local cm=_G["c"..m]
+cm.name="黑金暴龙的怒火"
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetTarget(c34500380.target)
+	e1:SetOperation(c34500380.activate)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(56920308,0))
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,34500380)
+	e2:SetCondition(c34500380.setcon)
+	e2:SetTarget(c34500380.settg)
+	e2:SetOperation(c34500380.setop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+end
+function c34500380.filter(c)
+	return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_DARK)
+end
+function c34500380.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c34500380.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c34500380.filter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	local g=Duel.SelectTarget(tp,c34500380.filter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c34500380.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_IMMUNE_EFFECT)
+		e1:SetValue(c34500380.efilter)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+		e2:SetValue(1)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e2)
+	end
+end
+function c34500380.efilter(e,re)
+	return e:GetHandler()~=re:GetOwner()
+end
+function c34500380.cfilter(c,tp)
+	return c:IsRace(RACE_DRAGON) and c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:GetSummonPlayer()==tp
+end
+function c34500380.setcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c34500380.cfilter,1,nil,tp)
+end
+function c34500380.settg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsSSetable() end
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
+end
+function c34500380.setop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SSet(tp,c)~=0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
+		e1:SetValue(LOCATION_REMOVED)
+		c:RegisterEffect(e1)
+	end
+end

expansions/script/c65130420.lua

+--无限的未完成
+local s,id,o=GetID()
+function s.initial_effect(c)
+	if not iroha then
+		iroha=true
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+		e1:SetCode(EVENT_PREDRAW)
+		e1:SetRange(0xff)
+		e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_DUEL)
+		e1:SetOperation(s.op)
+		Duel.RegisterEffect(e1,0)
+		_CreateToken=Duel.CreateToken
+		function Duel.CreateToken(p,code)
+			local c =_CreateToken(p,code)
+			s.changecode(c)
+			return c
+		end
+		function aux.IsCodeListed(c,code)
+			return false
+		end		
+	end
+end
+function s.changecode(tc)
+	--local cid=tc:GetOriginalCode()
+	local cid=0
+	local Type=tc:GetOriginalType()
+	if Type&TYPE_MONSTER>0 then				
+		local Lv=tc:GetOriginalLevel()
+		local Rk=tc:GetOriginalRank()
+		local Att=tc:GetOriginalAttribute()
+		local Atk=tc:GetBaseAttack()
+		local Def=tc:GetBaseDefense()
+		local Race=tc:GetOriginalRace()
+		local Lsc=tc:GetOriginalLeftScale()
+		local Rsc=tc:GetOriginalRightScale()
+		local Lkml = {0x001,0x002,0x004,0x008,0x020,0x040,0x080,0x100}
+		local Lkm =0
+		for k,v in ipairs(Lkml) do
+			if tc:IsLinkMarker(v) then 
+				Lkm=Lkm+v
+			end
+		end
+		if Type&TYPE_NORMAL>0 then cid=id+1 end
+		if Type&TYPE_LINK>0 then cid=id+10+tc:GetLink() end		--
+		if Type&TYPE_SYNCHRO>0 then cid=id+3 end
+		if Type&TYPE_XYZ>0 then cid=id+5 end
+		if Type&TYPE_RITUAL>0 then cid=id+7 end
+		if Type&TYPE_FUSION>0 then cid=id+9 end
+		if Type&TYPE_PENDULUM>0 then cid=cid+1 end
+		if cid>id+39 or cid<id+1 then cid=id+1 end
+		if Type&TYPE_TOKEN>0 then cid=id+39 end		
+		tc:SetEntityCode(cid,true)
+		s.changemonster(tc,Type,Lkm,Lv,Rk,Att,Atk,Def,Race,Lsc,Rsc)
+	else 
+		if Type&TYPE_SPELL>0 then
+			tc:SetEntityCode(id+20,true)
+			if Type&TYPE_QUICKPLAY>0 then tc:SetEntityCode(id+21,true) end
+			if Type&TYPE_CONTINUOUS>0 then tc:SetEntityCode(id+22,true) end
+			if Type&TYPE_EQUIP>0 then tc:SetEntityCode(id+23,true) end
+			if Type&TYPE_FIELD>0 then tc:SetEntityCode(id+24,true) end
+			if Type&TYPE_RITUAL>0 then tc:SetEntityCode(id+25,true) end
+		else 
+			if Type&TYPE_TRAP>0 then
+				tc:SetEntityCode(id+30,true)
+				if Type&TYPE_CONTINUOUS>0 then tc:SetEntityCode(id+31,true) end
+				if Type&TYPE_COUNTER>0 then tc:SetEntityCode(id+32,true) end
+			end
+		end
+	end
+end
+function s.changemonster(c,Type,Lkm,Lv,Rk,Att,Atk,Def,Race,Lsc,Rsc)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SET_BASE_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetRange(0xff)
+	e1:SetValue(Atk)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_SET_BASE_DEFENSE)
+	e2:SetValue(Def)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_CHANGE_TYPE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetValue(Type)
+	e3:SetReset(0)
+	c:RegisterEffect(e3)	
+	local e4=e1:Clone()
+	e4:SetCode(EFFECT_CHANGE_LINK_MARKER_KOISHI)
+	e4:SetValue(Lkm)
+	c:RegisterEffect(e4)  
+	local e5=e1:Clone()
+	e5:SetCode(EFFECT_CHANGE_LEVEL)
+	e5:SetValue(Lv)
+	c:RegisterEffect(e5)
+	local e6=e1:Clone()
+	e6:SetCode(EFFECT_CHANGE_RANK)
+	e6:SetValue(Rk)
+	c:RegisterEffect(e6)
+	local e7=e1:Clone()
+	e7:SetCode(EFFECT_CHANGE_ATTRIBUTE)
+	e7:SetValue(Att)
+	c:RegisterEffect(e7)
+	local e8=e1:Clone()
+	e8:SetCode(EFFECT_CHANGE_RACE)
+	e8:SetValue(Race)
+	c:RegisterEffect(e8)
+	local e9=e1:Clone()
+	e9:SetCode(EFFECT_CHANGE_LSCALE)
+	e9:SetValue(Lsc)
+	c:RegisterEffect(e9)
+	local e10=e1:Clone()
+	e10:SetCode(EFFECT_CHANGE_RSCALE)
+	e10:SetValue(Rsc)
+	c:RegisterEffect(e10)
+end
+function s.op(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,tp,id)
+	Duel.Hint(HINT_CARD,1-tp,id)
+	local tg=Duel.GetFieldGroup(tp,0xff,0xff)
+	if tg then 
+		for tc in aux.Next(tg) do
+			s.changecode(tc)
+		end
+		Duel.Draw(tp,Duel.SendtoDeck(Duel.GetFieldGroup(tp,LOCATION_HAND,0),nil,SEQ_DECKSHUFFLE,REASON_RULE),REASON_RULE)
+		Duel.Draw(1-tp,Duel.SendtoDeck(Duel.GetFieldGroup(1-tp,LOCATION_HAND,0),nil,SEQ_DECKSHUFFLE,REASON_RULE),REASON_RULE)
+		local rg=Duel.GetFieldGroup(tp,LOCATION_EXTRA,LOCATION_EXTRA)
+		Duel.Remove(rg,POS_FACEDOWN,REASON_RULE)
+		Duel.SendtoDeck(rg,nil,SEQ_DECKSHUFFLE,REASON_RULE)
+	end
+	function Card.SetEntityCode(c,bool)
+		
+	end
+	_Hint=Duel.Hint
+	function Duel.Hint(ht,p,desc)
+		if ht==HINT_CARD then desc=id+1 end
+		_Hint(ht,p,desc)
+	end
+end
\ No newline at end of file

expansions/script/c65130460.lua

+--随机卡呼唤
+local s,id,o=GetID()
+function s.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCost(s.cost)
+	e1:SetTarget(s.tg)
+	e1:SetOperation(s.op)
+	c:RegisterEffect(e1)
+end
+--此处代码抄袭自随兴
+local A=1103515245
+local B=12345
+local M=32767
+function s.roll(min,max)
+	min=tonumber(min)
+	max=tonumber(max)
+	s.r=((s.r*A+B)%M)/M
+	if min~=nil then
+		if max==nil then
+			return math.floor(s.r*min)+1
+		else
+			max=max-min+1
+			return math.floor(s.r*max+min)
+		end
+	end
+	return s.r
+end
+function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+end
+function s.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(id,2))
+	local cnum=Duel.AnnounceLevel(tp,1,3)
+	Duel.SetTargetParam(cnum)
+end
+function s.op(e,tp,eg,ep,ev,re,r,rp)
+	Debug.Message(".")
+	local cnum=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
+	s.testop(e,1-tp,cnum,0)
+end
+function s.testop(e,tp,cnum,count)
+	if not s.r then
+		local result=0
+		local g=Duel.GetFieldGroup(0,0xff,0xff):RandomSelect(2,8)
+		local ct={}
+		local c=g:GetFirst()
+		for i=0,7 do
+			ct[c]=i
+			c=g:GetNext()
+		end
+		for i=0,10 do
+			result=result+(ct[g:RandomSelect(2,1):GetFirst()]<<(3*i))
+		end
+		g:DeleteGroup()
+		s.r=result&0xffffffff
+	end
+	count=count+1
+	if count>5 then Debug.Message("第"..count.."次了") end
+	if count==10 then Debug.Message("要不投了吧") end
+	if count==50 then Debug.Message("你是真的闲啊") end
+	if count==100 then Debug.Message("套娃200次系统就会自动叫停了，加油") end
+	if count==199 then Debug.Message("可喜可贺") end
+	local ac=nil
+	local _TGetID=GetID
+	local tab1={}
+	local IsFalse=false
+	for i=1,cnum do
+		while not ac do
+			
+			local int=s.roll(1,132000015)
+			--continuously updated
+			if int>132000000 and int<132000014 then int=int+739100000 end
+			if int==132000014 then int=460524290 end
+			if int==132000015 then int=978210027 end
+			local cc,ca,ctype=Duel.ReadCard(int,CARDDATA_CODE,CARDDATA_ALIAS,CARDDATA_TYPE)
+			if cc then
+				local dif=cc-ca
+				local real=0
+				if dif>-10 and dif<10 then
+					real=ca
+				else
+					real=cc
+				end
+				if ctype&TYPE_TOKEN==0 then
+					ac=real
+				end
+			end	  
+		end
+		table.insert(tab1,ac)
+		ac=nil
+	end
+	for i=1,cnum do
+		Duel.Hint(HINT_CARD,tp,tab1[i])
+	end
+	for i=1,cnum do
+		ac=Duel.AnnounceCard(tp)
+		if ac~=tab1[i] then 
+			Duel.Hint(HINT_MESSAGE,tp,aux.Stringid(id,0))
+			IsFalse=true
+			break
+		end
+	end
+	if IsFalse then
+		s.testop(e,tp,cnum,count)
+	else
+		Duel.Hint(HINT_MESSAGE,tp,aux.Stringid(id,1))
+		if Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
+			s.testop(e,1-tp,cnum,0)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c77723303.lua

 --神赐王权 织田信长(注：狸子DIY)
 function c77723303.initial_effect(c)
-c:SetUniqueOnField(2,1,77723303)
+	c:SetUniqueOnField(1,0,77723303)
+	--same effect send this card to grave and spsummon another card check
+	local e0=aux.AddThisCardInGraveAlreadyCheck(c)
 	--special summon
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetDescription(aux.Stringid(77723303,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
 	e1:SetProperty(EFFECT_FLAG_DELAY)
 	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
 	e1:SetCountLimit(1,77723303)
+	e1:SetLabelObject(e0)
 	e1:SetCondition(c77723303.spcon)
 	e1:SetCost(c77723303.spcost)
 	e1:SetTarget(c77723303.sptg)
@@ -16,24 +20,25 @@ c:SetUniqueOnField(2,1,77723303)
 	c:RegisterEffect(e1)
 	--destroy
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(77723303,1))
 	e2:SetCategory(CATEGORY_DESTROY)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,777233030)
+	e2:SetCountLimit(1,77725303)
 	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
 	e2:SetCondition(c77723303.descon)
 	e2:SetCost(c77723303.descost)
 	e2:SetTarget(c77723303.destg)
 	e2:SetOperation(c77723303.desop)
 	c:RegisterEffect(e2)
-	end
-function c77723303.cfilter(c,tp)
-	return c:GetSummonPlayer()==tp and c:IsSummonType(SUMMON_TYPE_SPECIAL) 
+end
+function c77723303.cfilter(c,tp,se)
+	return c:GetSummonPlayer()==tp and (se==nil or c:GetReasonEffect()~=se)
 end
 function c77723303.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c77723303.cfilter,1,nil,tp)
+	local se=e:GetLabelObject():GetLabelObject()
+	return eg:IsExists(c77723303.cfilter,1,nil,tp,se)
 end
 function c77723303.spfilter(c)
 	return c:IsType(TYPE_QUICKPLAY) and c:IsAbleToGraveAsCost()
@@ -49,18 +54,18 @@ function c77723303.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c77723303.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.IsExistingMatchingCard(c77723303.spfilter2,tp,LOCATION_GRAVE,0,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
 end
 function c77723303.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)
+	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-		local g=Duel.SelectMatchingCard(tp,c77723303.spfilter2,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+		local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c77723303.spfilter2),tp,LOCATION_GRAVE,0,1,1,nil)
 		if g:GetCount()>0 then
 			Duel.SendtoHand(g,nil,REASON_EFFECT)
-		 Duel.ConfirmCards(1-tp,g)
 		end
 	end
 end
@@ -75,7 +80,7 @@ function c77723303.descost(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.DiscardHand(tp,c77723303.cfilter2,1,1,REASON_COST+REASON_DISCARD)
 end
 function c77723303.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsControler(1-tp) and chkc~=e:GetHandler() end
+	if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end
 	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
 	local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())

expansions/script/c77723304.lua

 --被流放的灵魂 希区柯克(注：狸子DIY)
 function c77723304.initial_effect(c)
-c:SetUniqueOnField(2,1,77723304)
+	c:SetUniqueOnField(1,0,77723304)
 	--disable spsummon
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
@@ -13,7 +13,7 @@ c:SetUniqueOnField(2,1,77723304)
 	--spsummon
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(77723304,0))
-	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e2:SetRange(LOCATION_GRAVE)
@@ -22,15 +22,15 @@ c:SetUniqueOnField(2,1,77723304)
 	e2:SetTarget(c77723304.target)
 	e2:SetOperation(c77723304.operation)
 	c:RegisterEffect(e2)
-	end
-	function c77723304.pcon(e)
+end
+function c77723304.pcon(e)
 	return e:GetHandler():GetSummonLocation()==LOCATION_GRAVE
 end
 function c77723304.cfilter(c,tp)
 	return c:GetSummonPlayer()~=tp
 end
 function c77723304.condition(e,tp,eg,ep,ev,re,r,rp)
-	return not eg:IsContains(e:GetHandler()) and eg:IsExists(c77723304.cfilter,1,nil,tp)
+	return eg:IsExists(c77723304.cfilter,1,nil,tp)
 end
 function c77723304.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp)>0
@@ -51,4 +51,4 @@ function c77723304.operation(e,tp,eg,ep,ev,re,r,rp)
 			c:RegisterEffect(e1)
 		end
 	end
-			end
\ No newline at end of file
+end

expansions/script/c77723305.lua

 --剥离灵魂的爱 莎乐美(注：狸子DIY)
 function c77723305.initial_effect(c)
-c:SetUniqueOnField(2,1,77723305)
+	c:SetUniqueOnField(1,0,77723305)
 	--spsummon1
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(77723305,1))
-	e1:SetCategory(CATEGORY_SUMMON)
+	e1:SetDescription(aux.Stringid(77723305,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O)
 	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
@@ -16,33 +16,33 @@ c:SetUniqueOnField(2,1,77723305)
 	c:RegisterEffect(e1)
 	--spsummon2
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(77723305,2))
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetRange(LOCATION_MZONE)
 	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
 	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,777233050)
+	e2:SetCountLimit(1,77723505)
 	e2:SetCondition(c77723305.spcon2)
 	e2:SetCost(c77723305.cost)
 	e2:SetTarget(c77723305.sptg2)
 	e2:SetOperation(c77723305.spop2)
 	c:RegisterEffect(e2)
-	end
+end
 function c77723305.cfilter(c,tp)
 	return c:GetSummonPlayer()~=tp
 end
 function c77723305.spcon1(e,tp,eg,ep,ev,re,r,rp)
-	return not eg:IsContains(e:GetHandler()) and eg:IsExists(c77723305.cfilter,1,nil,tp)
+	return eg:IsExists(c77723305.cfilter,1,nil,tp)
+end
+function c77723305.desfilter(c,tp)
+	return Duel.GetMZoneCount(tp,c)>0
 end
 function c77723305.sptg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c77723305.cfilter(chkc,ft) end
-	if chk==0 then return ft>-1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
-		and Duel.IsExistingTarget(c77723305.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,ft) end
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c77723305.desfilter(chkc,tp) end
+	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.IsExistingTarget(c77723305.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,tp) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,c77723305.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,ft)
+	local g=Duel.SelectTarget(tp,c77723305.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tp)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
 end
@@ -55,12 +55,12 @@ function c77723305.spop1(e,tp,eg,ep,ev,re,r,rp)
 end
 function c77723305.spcon2(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetTurnPlayer()~=tp
-	end
+end
 function c77723305.filter(c)
 	return c:IsType(TYPE_MONSTER) and c:GetLevel()>0 and c:IsAbleToRemoveAsCost()
 end
 function c77723305.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c77723305.filter,tp,0,LOCATION_GRAVE,1,1,nil) end
+	if chk==0 then return Duel.IsExistingMatchingCard(c77723305.filter,tp,0,LOCATION_GRAVE,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
 	local g=Duel.SelectMatchingCard(tp,c77723305.filter,tp,0,LOCATION_GRAVE,1,1,nil)
 	Duel.Remove(g,POS_FACEUP,REASON_COST)
@@ -74,13 +74,19 @@ end
 function c77723305.spop2(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not c:IsRelateToEffect(e) then return end
-	if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) then
+	if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==1 then
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
-			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-			e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
-			e1:SetValue(LOCATION_DECKBOT)
+		e1:SetCode(EFFECT_UPDATE_LEVEL)
+		e1:SetValue(e:GetLabel())
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
 		c:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e2:SetReset(RESET_EVENT+RESETS_REDIRECT)
+		e2:SetValue(LOCATION_DECKBOT)
+		c:RegisterEffect(e2)
 	end
-			end
\ No newline at end of file
+end

expansions/script/c77723387.lua

---创生之美神 女娲(注：狸子DIY)
+--创世之美神 女娲(注：狸子DIY)
 function c77723387.initial_effect(c)
-c:SetUniqueOnField(2,1,77723387)
+	c:SetUniqueOnField(1,0,77723387)
 	--spsummon
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(77723387,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCountLimit(1,77723387)
 	e1:SetType(EFFECT_TYPE_QUICK_O)
 	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e1:SetCost(c77723387.cost)
 	e1:SetTarget(c77723387.target)
 	e1:SetOperation(c77723387.operation)
@@ -24,8 +24,7 @@ c:SetUniqueOnField(2,1,77723387)
 	c:RegisterEffect(e2)
 	--negate
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(77723387,0))
-	e3:SetCategory(CATEGORY_NEGATE)
+	e3:SetCategory(CATEGORY_NEGATE+CATEGORY_TODECK)
 	e3:SetType(EFFECT_TYPE_QUICK_O)
 	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
 	e3:SetCode(EVENT_CHAINING)
@@ -35,7 +34,7 @@ c:SetUniqueOnField(2,1,77723387)
 	e3:SetTarget(c77723387.negtg)
 	e3:SetOperation(c77723387.negop)
 	c:RegisterEffect(e3)
-	end
+end
 function c77723387.cost(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)
@@ -88,18 +87,20 @@ function c77723387.negcon(e,tp,eg,ep,ev,re,r,rp)
 	return g and g:IsExists(c77723387.cfilter,1,nil,tp) and Duel.IsChainNegatable(ev)
 end
 function c77723387.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
 	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
 end
 function c77723387.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
+	if chk==0 then return aux.ndcon(tp,re) end
 	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,1,0,0)
+	end
 end
 function c77723387.negop(e,tp,eg,ep,ev,re,r,rp)
 	local ec=re:GetHandler()
-	if Duel.NegateEffect(ev) and ec:IsRelateToEffect(re) then
+	if Duel.NegateActivation(ev) and ec:IsRelateToEffect(re) then
 		ec:CancelToGrave()
-		if Duel.SendtoDeck(ec,nil,2,REASON_EFFECT)~=0 and ec:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then
-		end
-		end
+		Duel.SendtoDeck(ec,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
 	end
+end

expansions/script/c77724137.lua

 --玄奘(注:狸子DIY)
 function c77724137.initial_effect(c)
-   c:SetUniqueOnField(2,1,77724137)
+	c:SetUniqueOnField(1,0,77724137)
 	--special summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW)
@@ -20,7 +20,7 @@ function c77724137.initial_effect(c)
 	e3:SetTarget(c77724137.desreptg)
 	e3:SetOperation(c77724137.desrepop)
 	c:RegisterEffect(e3)
-	end
+end
 function c77724137.cfilter(c)
 	return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToRemoveAsCost()
 end
@@ -43,11 +43,10 @@ function c77724137.filter(c)
 end
 function c77724137.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) then return end
-	if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0
-	and not Duel.IsExistingMatchingCard(c77724137.cfilter2,tp,LOCATION_MZONE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(77724137,0)) then
+	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
 		local g=Duel.GetMatchingGroup(c77724137.filter,tp,LOCATION_DECK,0,nil)
-		if g:GetCount()>0 then
+		if not Duel.IsExistingMatchingCard(c77724137.cfilter2,tp,LOCATION_MZONE,0,1,nil)
+			and g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(77724137,0)) then
 			Duel.BreakEffect()
 			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
 			local sg=g:Select(tp,1,1,nil)
@@ -56,17 +55,19 @@ function c77724137.spop(e,tp,eg,ep,ev,re,r,rp)
 		end
 	end
 end
-function c77724137.desrepfilter(c)
-	return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToDeck() and not c:IsHasEffect(EFFECT_NECRO_VALLEY)
+function c77724137.desrepfilter(c,e)
+	return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToDeck()
+		and not c:IsStatus(STATUS_DESTROY_CONFIRMED) and not c:IsImmuneToEffect(e)
 end
 function c77724137.desreptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	if chk==0 then return c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
-		and Duel.IsExistingMatchingCard(c77724137.desrepfilter,tp,LOCATION_MZONE,0,1,nil) end
+		and Duel.IsExistingMatchingCard(c77724137.desrepfilter,tp,LOCATION_MZONE,0,1,c,e) end
 	return Duel.SelectEffectYesNo(tp,c,96)
 end
 function c77724137.desrepop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOHAND)
-	local g=Duel.SelectMatchingCard(tp,c77724137.desrepfilter,tp,LOCATION_MZONE,0,1,1,nil)
-	Duel.SendtoHand(g,nil,2,REASON_EFFECT+REASON_REPLACE)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c77724137.desrepfilter,tp,LOCATION_MZONE,0,1,1,c,e)
+	Duel.HintSelection(g)
+	Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT+REASON_REPLACE)
 end

expansions/script/c77770002.lua

+--红莲炎龙(注：狸子DIY)
+function c77770002.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
+	c:EnableReviveLimit()
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetCondition(c77770002.spcon)
+	e1:SetTarget(c77770002.sptg)
+	e1:SetOperation(c77770002.spop)
+	c:RegisterEffect(e1)
+		--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetCondition(c77770002.spcon2)
+	e2:SetTarget(c77770002.sptg2)
+	e2:SetOperation(c77770002.spop2)
+	c:RegisterEffect(e2)
+	end
+function c77770002.cfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_DRAGON)
+end
+function c77770002.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c77770002.cfilter,tp,LOCATION_MZONE,0,1,e:GetHandler())
+end
+function c77770002.spfilter(c,e,tp)
+	return c:IsType(TYPE_TUNER) and c:IsRace(RACE_FIEND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c77770002.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c77770002.spfilter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c77770002.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c77770002.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c77770002.spop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c77770002.spcon2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsReason(REASON_EFFECT) and re:IsActiveType(TYPE_MONSTER)
+		and c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE)
+end
+function c77770002.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,800)
+end
+function c77770002.spop2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
+		Duel.Damage(tp,800,REASON_EFFECT)
+		Duel.Damage(1-tp,800,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c77770010.lua

+--藤原千花(注：狸子DIY)
+function c77770010.initial_effect(c)
+	--Search
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetCountLimit(1,77770010)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(c77770010.thcon)
+	e1:SetCost(c77770010.thcost)
+	e1:SetTarget(c77770010.thtg)
+	e1:SetOperation(c77770010.thop)
+	c:RegisterEffect(e1)
+	--Search
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e2:SetCountLimit(1,77770010)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCondition(c77770010.spcon)
+	e2:SetCost(c77770010.spcost)
+	e2:SetTarget(c77770010.sptg)
+	e2:SetOperation(c77770010.spop)
+	c:RegisterEffect(e2)
+	end
+function c77770010.cfilter(c)
+	return c:IsFaceup() and c:IsRace(RACE_FAIRY)
+end
+function c77770010.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(c77770010.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c77770010.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 c77770010.filter(c)
+	return c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand()
+end
+function c77770010.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c77770010.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c77770010.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c77770010.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c77770010.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
+end
+function c77770010.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
+	Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_COST)
+end
+function c77770010.spfilter(c,e,tp)
+	return c:IsRace(RACE_FAIRY) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c77770010.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c77770010.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function c77770010.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,c77770010.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c88100002.lua

@@ -28,10 +28,11 @@ function c88100002.initial_effect(c)
 	c:RegisterEffect(e2)
 	local e3=Effect.CreateEffect(c)
 	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
 	e3:SetRange(LOCATION_EXTRA)
+	e3:SetHintTiming(TIMING_DRAW_PHASE+TIMING_STANDBY_PHASE,TIMING_DRAW_PHASE+TIMING_STANDBY_PHASE+TIMING_MAIN_END+TIMING_BATTLE_START+TIMING_BATTLE_END)
 	e3:SetCountLimit(1,88200002)
-	e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
 	e3:SetTarget(c88100002.thtg)
 	e3:SetOperation(c88100002.thop)
 	c:RegisterEffect(e3)
@@ -70,7 +71,7 @@ function c88100002.rmop(e,tp,eg,ep,ev,re,r,rp)
 end
 function c88100002.spcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_SYNCHRO) and bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
 end
 function c88100002.spfilter(c,e,tp)
 	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)

expansions/script/c88100003.lua

@@ -28,10 +28,11 @@ function c88100003.initial_effect(c)
 	c:RegisterEffect(e2)
 	local e3=Effect.CreateEffect(c)
 	e3:SetCategory(CATEGORY_DRAW)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
 	e3:SetRange(LOCATION_EXTRA)
+	e3:SetHintTiming(TIMING_DRAW_PHASE+TIMING_STANDBY_PHASE,TIMING_DRAW_PHASE+TIMING_STANDBY_PHASE+TIMING_MAIN_END+TIMING_BATTLE_START+TIMING_BATTLE_END)
 	e3:SetCountLimit(1,88200003)
-	e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
 	e3:SetTarget(c88100003.thtg)
 	e3:SetOperation(c88100003.thop)
 	c:RegisterEffect(e3)
@@ -70,7 +71,7 @@ function c88100003.rmop(e,tp,eg,ep,ev,re,r,rp)
 end
 function c88100003.spcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_SYNCHRO) and bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
 end
 function c88100003.spfilter(c,e,tp)
 	return c:IsFaceup() and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

expansions/script/c88100004.lua

@@ -10,7 +10,6 @@ function c88100004.initial_effect(c)
 	e1:SetHintTiming(0,TIMING_MAIN_END+TIMING_BATTLE_START+TIMING_BATTLE_END)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCountLimit(1,88100004)
-	e1:SetCondition(c88100004.sccon)
 	e1:SetTarget(c88100004.sctg)
 	e1:SetOperation(c88100004.scop)
 	c:RegisterEffect(e1)
@@ -26,11 +25,6 @@ function c88100004.initial_effect(c)
 	e2:SetOperation(c88100004.setop)
 	c:RegisterEffect(e2)
 end
-function c88100004.sccon(e,tp,eg,ep,ev,re,r,rp)
-	local ph=Duel.GetCurrentPhase()
-	return not e:GetHandler():IsStatus(STATUS_CHAINING)
-		and (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2)
-end
 function c88100004.scfilter1(c,e,tp,mc)
 	local mg=Group.FromCards(c,mc)
 	return not c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

expansions/script/c88100006.lua

@@ -11,7 +11,6 @@ function c88100006.initial_effect(c)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetHintTiming(0,TIMING_BATTLE_START+TIMING_BATTLE_END)
 	e1:SetRange(LOCATION_MZONE)
-	e1:SetCondition(c88100006.sccon)
 	e1:SetTarget(c88100006.sctg)
 	e1:SetOperation(c88100006.scop)
 	c:RegisterEffect(e1)
@@ -29,10 +28,11 @@ function c88100006.initial_effect(c)
 	c:RegisterEffect(e2)
 	local e3=Effect.CreateEffect(c)
 	e3:SetCategory(CATEGORY_TODECK)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
 	e3:SetRange(LOCATION_EXTRA)
+	e3:SetHintTiming(TIMING_DRAW_PHASE+TIMING_STANDBY_PHASE,TIMING_DRAW_PHASE+TIMING_STANDBY_PHASE+TIMING_MAIN_END+TIMING_BATTLE_START+TIMING_BATTLE_END)
 	e3:SetCountLimit(1,88200006)
-	e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
 	e3:SetTarget(c88100006.tdtg)
 	e3:SetOperation(c88100006.tdop)
 	c:RegisterEffect(e3)
@@ -44,11 +44,6 @@ function c88100006.initial_effect(c)
 	e4:SetOperation(c88100006.indop)
 	c:RegisterEffect(e4)
 end
-function c88100006.sccon(e,tp,eg,ep,ev,re,r,rp)
-	local ph=Duel.GetCurrentPhase()
-	return not e:GetHandler():IsStatus(STATUS_CHAINING)
-		and (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2)
-end
 function c88100006.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,e:GetHandler()) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
@@ -65,7 +60,7 @@ function c88100006.scop(e,tp,eg,ep,ev,re,r,rp)
 end
 function c88100006.spcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_SYNCHRO) and bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
 end
 function c88100006.spfilter(c,e,tp)
 	return c:IsSetCard(0xea) and not c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

expansions/script/c88100007.lua

@@ -32,10 +32,12 @@ function c88100007.initial_effect(c)
 	c:RegisterEffect(e2)
 	local e3=Effect.CreateEffect(c)
 	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_EXTRA)
+	e3:SetHintTiming(TIMING_DRAW_PHASE+TIMING_STANDBY_PHASE,TIMING_DRAW_PHASE+TIMING_STANDBY_PHASE+TIMING_MAIN_END+TIMING_BATTLE_START+TIMING_BATTLE_END)
 	e3:SetRange(LOCATION_EXTRA)
 	e3:SetCountLimit(1,88300007)
-	e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
 	e3:SetTarget(c88100007.thtg)
 	e3:SetOperation(c88100007.thop)
 	c:RegisterEffect(e3)

expansions/script/c88100009.lua

@@ -76,7 +76,7 @@ function c88100009.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c88100009.tkop(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
-		or not Duel.IsPlayerCanSpecialSummonMonster(tp,55326323,0x30ea,TYPES_TOKEN_MONSTER,0,0,1,RACE_MACHINE,ATTRIBUTE_WATER) then return end
+		or not Duel.IsPlayerCanSpecialSummonMonster(tp,88100010,0x30ea,TYPES_TOKEN_MONSTER,0,0,1,RACE_MACHINE,ATTRIBUTE_WATER) then return end
 	local token=Duel.CreateToken(tp,88100010)
 	Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
 	local e1=Effect.CreateEffect(e:GetHandler())
@@ -88,13 +88,13 @@ function c88100009.tkop(e,tp,eg,ep,ev,re,r,rp)
 	local e2=e1:Clone()
 	e2:SetCode(EFFECT_UNRELEASABLE_NONSUM)
 	token:RegisterEffect(e2,true)
-	Duel.SpecialSummonComplete()
 	local e3=Effect.CreateEffect(e:GetHandler())
 	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 	e3:SetCode(EFFECT_NONTUNER)
 	e3:SetValue(c88100009.tnval)
+	e3:SetReset(RESET_EVENT+RESETS_STANDARD)
 	token:RegisterEffect(e3,true)
+	Duel.SpecialSummonComplete()
 end
 function c88100009.tnval(e,c)
 	return e:GetHandler():IsControler(c:GetControler())

expansions/script/c88100012.lua

@@ -10,7 +10,6 @@ function c88100012.initial_effect(c)
 	e1:SetHintTiming(0,TIMING_MAIN_END+TIMING_BATTLE_START+TIMING_BATTLE_END)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCountLimit(1,88100012)
-	e1:SetCondition(c88100012.sccon)
 	e1:SetTarget(c88100012.sctg)
 	e1:SetOperation(c88100012.scop)
 	c:RegisterEffect(e1)
@@ -26,11 +25,6 @@ function c88100012.initial_effect(c)
 	e2:SetOperation(c88100012.setop)
 	c:RegisterEffect(e2)
 end
-function c88100012.sccon(e,tp,eg,ep,ev,re,r,rp)
-	local ph=Duel.GetCurrentPhase()
-	return not e:GetHandler():IsStatus(STATUS_CHAINING)
-		and (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2)
-end
 function c88100012.scfilter1(c,e,tp,mc)
 	local mg=Group.FromCards(c,mc)
 	return not c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

expansions/script/c88100013.lua

@@ -29,10 +29,12 @@ function c88100013.initial_effect(c)
 	c:RegisterEffect(e2)
 	local e3=Effect.CreateEffect(c)
 	e3:SetCategory(CATEGORY_SUMMON)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_EXTRA)
+	e3:SetHintTiming(TIMING_DRAW_PHASE+TIMING_STANDBY_PHASE,TIMING_DRAW_PHASE+TIMING_STANDBY_PHASE+TIMING_MAIN_END+TIMING_BATTLE_START+TIMING_BATTLE_END)
 	e3:SetRange(LOCATION_EXTRA)
 	e3:SetCountLimit(1,88300013)
-	e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
 	e3:SetTarget(c88100013.sumtg)
 	e3:SetOperation(c88100013.sumop)
 	c:RegisterEffect(e3)
@@ -63,7 +65,7 @@ function c88100013.posop(e,tp,eg,ep,ev,re,r,rp)
 end
 function c88100013.spcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_SYNCHRO) and bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
 end
 function c88100013.spfilter(c,e,tp)
 	return c:IsSetCard(0x30ea) and not c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

expansions/script/c88100015.lua

@@ -9,7 +9,6 @@ function c88100015.initial_effect(c)
 	e1:SetHintTiming(0,TIMING_MAIN_END+TIMING_BATTLE_START+TIMING_BATTLE_END)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCountLimit(1,88100015)
-	e1:SetCondition(c88100015.sccon)
 	e1:SetTarget(c88100015.sctg)
 	e1:SetOperation(c88100015.scop)
 	c:RegisterEffect(e1)
@@ -25,11 +24,6 @@ function c88100015.initial_effect(c)
 	e2:SetOperation(c88100015.setop)
 	c:RegisterEffect(e2)
 end
-function c88100015.sccon(e,tp,eg,ep,ev,re,r,rp)
-	local ph=Duel.GetCurrentPhase()
-	return not e:GetHandler():IsStatus(STATUS_CHAINING)
-		and (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2)
-end
 function c88100015.scfilter1(c,e,tp,mc)
 	local mg=Group.FromCards(c,mc)
 	return not c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

expansions/script/c88100018.lua

@@ -10,7 +10,7 @@ function c88100018.initial_effect(c)
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_FIELD)
 	e2:SetCode(EFFECT_UPDATE_ATTACK)
-	e2:SetRange(LOCATION_FZONE)
+	e2:SetRange(LOCATION_SZONE)
 	e2:SetTargetRange(LOCATION_MZONE,0)
 	e2:SetValue(300)
 	e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x30ea))

expansions/script/c88100019.lua

@@ -10,7 +10,7 @@ function c88100019.initial_effect(c)
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_FIELD)
 	e2:SetCode(EFFECT_UPDATE_ATTACK)
-	e2:SetRange(LOCATION_FZONE)
+	e2:SetRange(LOCATION_SZONE)
 	e2:SetTargetRange(LOCATION_MZONE,0)
 	e2:SetValue(300)
 	e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x30ea))

expansions/script/c98920093.lua

+--圣刻龙-孔斯龙
+function c98920093.initial_effect(c)
+	--Normal monster
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetCode(EFFECT_ADD_TYPE)
+	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e1:SetValue(TYPE_NORMAL)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_REMOVE_TYPE)
+	e2:SetValue(TYPE_EFFECT)
+	c:RegisterEffect(e2)
+	--spsummon from deck
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetRange(LOCATION_DECK)
+	e0:SetCountLimit(1,98920093)
+	e0:SetCode(EFFECT_SPSUMMON_PROC)
+	e0:SetCondition(c98920093.hspcon)
+	e0:SetOperation(c98920093.hspop)
+	c:RegisterEffect(e0) 
+	--declare card
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_SUMMON_SUCCESS)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetTarget(c98920093.dectg)
+	e3:SetOperation(c98920093.decop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e4)
+end
+function c98920093.hspfilter(c,ft,tp)
+	return c:IsSetCard(0x69)
+		and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
+end
+function c98920093.hspcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	return ft>-1 and Duel.CheckReleaseGroup(tp,c98920093.hspfilter,1,nil,ft,tp)
+end
+function c98920093.hspop(e,tp,eg,ep,ev,re,r,rp,c)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	local g=Duel.SelectReleaseGroup(tp,c98920093.hspfilter,1,1,nil,ft,tp)
+	Duel.Release(g,REASON_COST)
+	c:RegisterFlagEffect(0,RESET_EVENT+0x4fc0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(98920093,2))
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c98920093.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c98920093.splimit(e,c)
+	return not (c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsLocation(LOCATION_EXTRA)
+end
+function c98920093.dectg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local lv=e:GetHandler():GetLevel()
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(26082117,1))
+	e:SetLabel(Duel.AnnounceLevel(tp,1,8,lv))
+end
+function c98920093.decop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_LEVEL)
+		e1:SetValue(e:GetLabel())
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e1)
+	end
+end
\ No newline at end of file

expansions/script/c98920204.lua

+--正义盟军 强化头脑
+function c98920204.initial_effect(c)
+		--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98920204,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,98920204)
+	e1:SetCost(c98920204.spcost)   
+	e1:SetTarget(c98920204.sptg)
+	e1:SetOperation(c98920204.spop)
+	c:RegisterEffect(e1)  
+  --to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(98920204,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1,98930204)
+	e2:SetCost(c98920204.thcost)
+	e2:SetTarget(c98920204.thtg)
+	e2:SetOperation(c98920204.thop)
+	c:RegisterEffect(e2)
+	--destroy
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(98920204,2))
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_BE_MATERIAL)
+	e3:SetCondition(c98920204.descon)
+	e3:SetTarget(c98920204.destg)
+	e3:SetOperation(c98920204.desop)
+	c:RegisterEffect(e3)
+end
+function c98920204.costfilter(c)
+	return c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToGraveAsCost()
+end
+function c98920204.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c98920204.costfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c98920204.costfilter,tp,LOCATION_DECK,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST) 
+end
+function c98920204.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)   
+end
+function c98920204.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 c98920204.spfilter(c)
+	return c:IsSetCard(0x1) and not c:IsCode(98920204) and c:IsAbleToHand()
+end
+function c98920204.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function c98920204.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c98920204.spfilter(chkc,e,tp) end
+	if chk==0 then return Duel.IsExistingTarget(c98920204.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c98920204.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c98920204.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c98920204.descon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO and c:GetReasonCard():IsAttribute(ATTRIBUTE_DARK)
+end
+function c98920204.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
+	local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
+end
+function c98920204.desop(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CHANGE_ATTRIBUTE)
+	e1:SetTargetRange(0,LOCATION_MZONE)
+	e1:SetValue(ATTRIBUTE_LIGHT)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp) 
+end
\ No newline at end of file

expansions/script/c98920208.lua

+--临时圣剑 丹内尔
+function c98920208.initial_effect(c)
+	aux.AddCodeList(c,3285552) 
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCondition(c98920208.condition)
+	e1:SetTarget(c98920208.target)
+	e1:SetOperation(c98920208.operation)
+	c:RegisterEffect(e1)
+	--Equip limit
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_EQUIP_LIMIT)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetValue(c98920208.eqlimit)
+	c:RegisterEffect(e2)
+	--negate
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_DISABLE+CATEGORY_POSITION)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_CHAIN_SOLVING)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCondition(c98920208.negcon)
+	e3:SetOperation(c98920208.negop)
+	c:RegisterEffect(e3)
+	--grave to equip
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_EQUIP)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_TO_GRAVE)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e4:SetTarget(c98920208.eqtg)
+	e4:SetOperation(c98920208.eqop)
+	c:RegisterEffect(e4)
+end
+function c98920208.eqlimit(e,c)
+	return c:IsCode(3285552)
+end
+function c98920208.cfilter0(c)
+	return c:IsCode(3285552) and c:IsFaceup()
+end
+function c98920208.condition(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(c98920208.cfilter0,tp,LOCATION_ONFIELD,0,1,nil)
+end
+function c98920208.aclimit(e,re,tp)
+	local rc=re:GetHandler()
+	return re:IsActiveType(TYPE_MONSTER) and not (rc:IsSummonType(SUMMON_TYPE_SPECIAL) and rc:IsSummonLocation(LOCATION_HAND+LOCATION_GRAVE)) and rc:IsLocation(LOCATION_MZONE)
+end
+function c98920208.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and
+		Duel.IsPlayerCanSpecialSummonMonster(tp,3285552,0,TYPES_TOKEN_MONSTER,2000,2000,4,RACE_FAIRY,ATTRIBUTE_EARTH) end
+	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+end
+function c98920208.operation(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
+		or not Duel.IsPlayerCanSpecialSummonMonster(tp,3285552,0,TYPES_TOKEN_MONSTER,2000,2000,4,RACE_FAIRY,ATTRIBUTE_EARTH) then return end
+	local token=Duel.CreateToken(tp,3285552)
+	Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+	Duel.Equip(tp,e:GetHandler(),token)
+end
+function c98920208.negcon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp and re:IsActiveType(TYPE_SPELL+TYPE_TRAP)
+		and Duel.IsChainDisablable(ev) and not Duel.IsChainDisabled(ev)
+		and e:GetHandler():GetFlagEffect(98920208)<=0
+end
+function c98920208.negop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local rc=re:GetHandler()
+	if Duel.SelectEffectYesNo(tp,c) then
+		Duel.Hint(HINT_CARD,0,98920208)
+		if Duel.NegateEffect(ev) and Duel.IsExistingMatchingCard(c98920208.cfilter,tp,LOCATION_MZONE,0,1,nil) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
+			Duel.Destroy(e:GetHandler(),REASON_EFFECT)  
+		end
+		c:RegisterFlagEffect(98920208,RESET_EVENT+RESETS_STANDARD,0,1) 
+	end
+end
+function c98920208.filter(c)
+	return c:IsCode(3285552) and c:IsFaceup()
+end
+function c98920208.eqfilter(c,tc,tp)
+	return c:IsType(TYPE_EQUIP) and c:IsCode(65952776) and c:CheckEquipTarget(tc) and c:CheckUniqueOnField(tp) and not c:IsForbidden()
+end
+function c98920208.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c98920208.filter(chkc,tp) end
+	local ft=0
+	if e:GetHandler():IsLocation(LOCATION_HAND) then ft=1 end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>ft
+		and Duel.IsExistingTarget(c98920208.filter,tp,LOCATION_MZONE,0,1,nil,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c98920208.filter,tp,LOCATION_MZONE,0,1,1,nil,tp)
+end
+function c98920208.eqop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsControler(tp) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+		local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c98920208.eqfilter),tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,tc,tp)
+		if g:GetCount()>0 then
+			Duel.Equip(tp,g:GetFirst(),tc)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c98920240.lua

+--核成将军
+function c98920240.initial_effect(c)
+	aux.AddCodeList(c,36623431) 
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,4,2)
+	c:EnableReviveLimit() 
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c98920240.mtcon)
+	e1:SetOperation(c98920240.mtop)
+	c:RegisterEffect(e1)  
+	 --search
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(98920240,0))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetCountLimit(1,98920240)
+	e2:SetCondition(c98920240.thcon)
+	e2:SetTarget(c98920240.thtg)
+	e2:SetOperation(c98920240.thop)
+	c:RegisterEffect(e2)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetDescription(aux.Stringid(98920240,0))
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c98920240.cost)
+	e1:SetTarget(c98920240.sptg)
+	e1:SetOperation(c98920240.spop)
+	c:RegisterEffect(e1)
+end 
+function c98920240.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c98920240.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c98920240.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_WARRIOR) and not c:IsPublic()
+end
+function c98920240.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c98920240.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c98920240.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(98920240,0),aux.Stringid(98920240,1),aux.Stringid(98920240,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(98920240,0),aux.Stringid(98920240,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(98920240,1),aux.Stringid(98920240,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(98920240,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c98920240.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
+end
+function c98920240.thfilter(c)
+	return c:IsSetCard(0x1d) and c:IsAbleToHand()
+end
+function c98920240.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c98920240.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c98920240.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c98920240.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 c98920240.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c98920240.spfilter(c,e,tp)
+	return c:IsSetCard(0x1d) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c98920240.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c98920240.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
+end
+function c98920240.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,c98920240.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c98920254.lua

+--狂热异虫
+function c98920254.initial_effect(c)
+	--link summon
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_REPTILE),2,2)
+	--atk
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetOperation(c98920254.atkop)
+	c:RegisterEffect(e1)
+	--disable
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_DISABLE)
+	e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e1:SetTarget(c98920254.distg)
+	c:RegisterEffect(e1)
+end
+function c98920254.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=c:GetMaterial()
+	local s=0
+	local tc=g:GetFirst()
+	while tc do
+		local a=tc:GetAttack()
+		if a<0 then a=0 end
+		s=s+a
+		tc=g:GetNext()
+	end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SET_BASE_ATTACK)
+	e1:SetValue(s)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
+	c:RegisterEffect(e1)
+end
+function c98920254.distg(e,c)
+	local atk=e:GetHandler():GetAttack()
+	return c:IsAttackBelow(atk-1) and not c:IsRace(RACE_REPTILE) and c:IsType(TYPE_EFFECT)
+end
\ No newline at end of file

expansions/script/c98920291.lua

+--幻影骑士团 归零剑
+function c98920291.initial_effect(c)
+	 --link summon
+	aux.AddLinkProcedure(c,c98920291.mfilter,2,2,c98920291.lcheck)
+	c:EnableReviveLimit()
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98920291,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,98920291)
+	e1:SetCondition(c98920291.spcon)
+	e1:SetTarget(c98920291.sptg)
+	e1:SetOperation(c98920291.spop)
+	c:RegisterEffect(e1)
+	--atk
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98920291,0))
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1)
+	e1:SetCost(c98920291.cost)
+	e1:SetTarget(c98920291.atktg)
+	e1:SetOperation(c98920291.atkop)
+	c:RegisterEffect(e1)
+	--destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(98920291,1))
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_PHASE+PHASE_END)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c98920291.descon)
+	e2:SetTarget(c98920291.destg)
+	e2:SetOperation(c98920291.desop)
+	c:RegisterEffect(e2)
+end
+function c98920291.mfilter(c)
+	return c:IsLinkAttribute(ATTRIBUTE_DARK)
+end
+function c98920291.lcheck(g,lc)
+	return g:IsExists(Card.IsLinkSetCard,1,nil,0x10db)
+end
+function c98920291.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function c98920291.spfilter(c,e,tp)
+	return c:IsSetCard(0x10db) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c98920291.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c98920291.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c98920291.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c98920291.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+end
+function c98920291.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST) end
+	Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
+end
+function c98920291.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and aux.nzatk(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(aux.nzatk,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,aux.nzatk,tp,0,LOCATION_MZONE,1,1,nil)
+end
+function c98920291.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
+		local atk=tc:GetBaseAttack()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(0)
+		tc:RegisterEffect(e1)
+		if c:IsRelateToEffect(e) and c:IsFaceup() then
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e2:SetCode(EFFECT_UPDATE_ATTACK)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			e2:SetValue(atk)
+			c:RegisterEffect(e2)
+		end
+	end
+end
+function c98920291.desfilter(c,atk)
+	return c:IsFaceup() and c:IsAttackAbove(atk+1)
+end
+function c98920291.descon(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	local atk=e:GetHandler():GetAttack()
+	return not g:IsExists(c98920291.desfilter,1,nil,atk)
+end
+function c98920291.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+end
+function c98920291.desop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.Destroy(c,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c98940044.lua

+--圣刻龙-巴龙
+function c98940044.initial_effect(c)
+	 --spsummon from hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetCondition(c98940044.hspcon)
+	e1:SetOperation(c98940044.hspop)
+	c:RegisterEffect(e1)
+	 --search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98940044,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCost(c98940044.thcost)
+	e1:SetTarget(c98940044.thtg)
+	e1:SetOperation(c98940044.thop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(98940044,0))
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetCode(EVENT_RELEASE)
+	e2:SetTarget(c98940044.sptg)
+	e2:SetOperation(c98940044.spop)
+	c:RegisterEffect(e2)
+end
+function c98940044.hspcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
+		and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0
+end
+function c98940044.hspop(e,tp,eg,ep,ev,re,r,rp,c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EFFECT_CANNOT_ATTACK)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD+RESET_PHASE+PHASE_END)
+	c:RegisterEffect(e1)
+end
+function c98940044.spfilter(c,e,tp)
+	return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c98940044.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13)
+end
+function c98940044.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,aux.NecroValleyFilter(c98940044.spfilter),tp,0x13,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	if not tc then return end
+	if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_ATTACK)
+		e1:SetValue(0)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_SET_DEFENSE)
+		tc:RegisterEffect(e2)
+	end
+	Duel.SpecialSummonComplete()
+end
+function c98940044.cfilter(c)
+	return c:IsSetCard(0x69) and c:IsType(TYPE_MONSTER)
+end
+function c98940044.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroupEx(tp,c98940044.cfilter,1,e:GetHandler()) end
+	local g=Duel.SelectReleaseGroupEx(tp,c98940044.cfilter,1,1,e:GetHandler())
+	Duel.Release(g,REASON_COST)
+end
+function c98940044.filter(c)
+	return c:IsSetCard(0x69) and not c:IsCode(98940044) and c:IsAbleToHand()
+end
+function c98940044.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c98940044.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED)
+end
+function c98940044.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c98940044.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
\ No newline at end of file

expansions/script/c98940046.lua

+--奇迹之暗魔导师
+function c98940046.initial_effect(c)
+	--change name
+	aux.EnableChangeCode(c,46986414,LOCATION_MZONE+LOCATION_GRAVE)
+	--search
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCountLimit(1,98940046)
+	e2:SetCost(c98940046.thcost)
+	e2:SetTarget(c98940046.thtg)
+	e2:SetOperation(c98940046.thop)
+	c:RegisterEffect(e2)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(98940046,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,98950046)
+	e2:SetCondition(c98940046.spcon)
+	e2:SetTarget(c98940046.sptg)
+	e2:SetOperation(c98940046.spop)
+	c:RegisterEffect(e2)
+end
+function c98940046.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+end
+function c98940046.thfilter(c)
+	return c:IsLevel(6,7) and c:IsRace(RACE_SPELLCASTER) and c:IsAbleToHand()
+end
+function c98940046.filter2(c)
+	return c:IsFaceup() and not c:IsRace(RACE_SPELLCASTER)
+end
+function c98940046.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local res=not Duel.IsExistingMatchingCard(c98940046.filter2,tp,LOCATION_MZONE,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		return Duel.IsExistingMatchingCard(c98940046.thfilter,tp,LOCATION_DECK,0,1,nil,e,tp,res)
+	end
+end
+function c98940046.thop(e,tp,eg,ep,ev,re,r,rp)
+	local res=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and not Duel.IsExistingMatchingCard(c98940046.filter2,tp,LOCATION_MZONE,0,1,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tc=Duel.SelectMatchingCard(tp,c98940046.thfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,res):GetFirst()
+	if tc then
+		if res and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
+			and (not tc:IsAbleToHand() or Duel.SelectOption(tp,1190,1152)==1) then
+			Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+		else
+			Duel.SendtoHand(tc,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,tc)
+		end
+	end
+end
+function c98940046.cfilter(c,tp)
+	return c:IsRace(RACE_SPELLCASTER) and (c:IsLevel(6) or c:IsLevel(7)) and c:IsControler(tp)
+end
+function c98940046.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return not eg:IsContains(e:GetHandler()) and eg:IsExists(c98940046.cfilter,1,nil,tp)
+end
+function c98940046.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c98940046.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
\ No newline at end of file

expansions/strings.conf

@@ -763,6 +763,9 @@
 !setname  0x9fd5  渊异
 !setname 0x3fd1 裁决
 !setname  0xafd1 无亘
+!setname 0x3fd2 红莲团
+!setname 0x5fd2 龙心武装
+!setname 0x6fd2 龙律者
 
 #VHisc 916214730 332
 !setname 0x321 锻溶
@@ -1004,6 +1007,7 @@
 
 #渔人 888 0xc00-0xc0f
 !setname 0xc00 战钢
+!setname 0xc01 黄巾
 
 #Derren 910 0x9d0~0x9df
 !setname  0x9d0 真神
@@ -1035,3 +1039,9 @@
 !counter 0x1161 蝎毒指示物
 !counter 0x63 花瓣指示物
 !counter 0x640 镜影指示物
+!counter 0x624 ½ø»¯Ö¸Ê¾Îï
+!counter 0x625 Ò÷³ªÖ¸Ê¾Îï
+!setname 0x6976 剑灵
+!setname 0x9976 灵龙
+!setname 0xa976 龙剑|非「龙剑士」
+!setname 0x345  黑金暴龙
\ No newline at end of file