ndyd

expansions/script/c13959997.lua

 --2pick utilities
-c13959996={}
-Duel.LoadScript("c13959996.lua")
 
 local cc=13959997
 local this=_G["c"..cc]
@@ -179,8 +177,12 @@ function this.initSet(s)
 	s.add=this.add
 	s.del=this.del
 end
-function this.loadCardList(useBanList,ignoreBlackList)
-	local cl=c13959996
+function this.loadCardList(useBanList,ignoreBlackList,clCode)
+	if not _G["c"..clCode] then
+		_G["c"..clCode]={}
+		Duel.LoadScript("c"..clCode..".lua")
+	end
+	local cl=_G["c"..clCode]
 	local mainList=this.toList(this.loadSet(cl.Main))
 	local extraList=this.toList(this.loadSet(cl.Extra))
 	local ml={}

expansions/script/c13959998.lua

@@ -11,6 +11,7 @@ this.extracount=20
 this.useBanList=true
 this.skillEnabled=false
 this.CardList={}
+this.clCode=13959996
 
 function this.initial_effect(c)
 	if not this.gc then
@@ -173,6 +174,9 @@ function this.op(e,tp)
 				this.extracount=Duel.AnnounceLevel(0,1,10)*10
 			end
 			this.useBanList=Duel.SelectYesNo(0,aux.Stringid(13959997,2))
+			if Duel.SelectYesNo(0,aux.Stringid(13959997,6)) then
+				this.clCode=({13959996,13959994})[Duel.SelectOption(0,aux.Stringid(13959997,7),aux.Stringid(13959997,8))+1]
+			end
 		end
 		this.option=Duel.SelectOption(0,aux.Stringid(cc,0),aux.Stringid(cc,1),aux.Stringid(cc,6),aux.Stringid(cc,7),aux.Stringid(cc,11),aux.Stringid(cc,10),aux.Stringid(13959997,4),aux.Stringid(13959997,5))
 		local n=0
@@ -244,7 +248,7 @@ end
 
 function this.ccGen(from,count)
 	if not this.CardList.Main then
-		local ml,el,mat,eat=c13959997.loadCardList(this.useBanList)
+		local ml,el,mat,eat=c13959997.loadCardList(this.useBanList,false,this.clCode)
 		this.CardList.Main=ml
 		this.CardList.Extra=el
 		this.CardList.MainAliasTable=mat
@@ -711,7 +715,7 @@ end
 
 function this.picrandom(g)
 	if not this.CardList.Main then
-		local ml,el,mat,eat=c13959997.loadCardList(this.useBanList)
+		local ml,el,mat,eat=c13959997.loadCardList(this.useBanList,false,this.clCode)
 		this.CardList.Main=ml
 		this.CardList.Extra=el
 		this.CardList.MainAliasTable=mat

expansions/script/c33403520.lua

---Re:CREATORS 筑城院真鉴
-local m=33403520
-local cm=_G["c"..m]
-Duel.LoadScript("c33400000.lua")
-function cm.initial_effect(c)
-	XY.magane(c)
-	c:SetUniqueOnField(1,0,m)   
-  --change effect
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOGRAVE)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
-	e1:SetCode(EVENT_CHAINING)
-	e1:SetRange(LOCATION_MZONE+LOCATION_HAND)
-	e1:SetCountLimit(1,m)
-	e1:SetCondition(cm.chcon)
-	e1:SetOperation(cm.chop)
-	c:RegisterEffect(e1)
---
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,1))
-	e2:SetCategory(CATEGORY_TOGRAVE)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_CHAIN_NEGATED)
-	e2:SetRange(LOCATION_MZONE+LOCATION_HAND)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,m+10000)
-	e2:SetCondition(cm.condition)
-	e2:SetTarget(cm.sptg)
-	e2:SetOperation(cm.spop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_CHAIN_DISABLED)
-	c:RegisterEffect(e3)
- --draw
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(m,1))
-	e4:SetCategory(CATEGORY_TOGRAVE)
-	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e4:SetCode(EVENT_PHASE+PHASE_END)
-	e4:SetRange(LOCATION_MZONE+LOCATION_HAND)
-	e4:SetCountLimit(1,m+20000)
-	e4:SetTarget(cm.sptg2)
-	e4:SetOperation(cm.spop2)
-	c:RegisterEffect(e4)
-end
-function cm.chcon(e,tp,eg,ep,ev,re,r,rp)
-	local ct=Duel.GetCurrentChain()
-	if ct<2 then return end
-	local te,p=Duel.GetChainInfo(ct-1,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
-	return te and te:GetHandler():IsSetCard(0x6349) and p==tp and rp==1-tp
-end
-function cm.chop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Group.CreateGroup()
-	Duel.ChangeTargetCard(ev,g)
-	Duel.ChangeChainOperation(ev,cm.repop)
-	if e:GetHandler():IsLocation(LOCATION_HAND) then Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT)end
-end
-function cm.filter1(c)
-	return c:IsSetCard(0x6349) and  c:IsAbleToHand()
-end
-function cm.repop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(1-tp,cm.filter1,1-tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-end
-
-function cm.condition(e,tp,eg,ep,ev,re,r,rp)
-	return  re:GetHandler():IsSetCard(0x6349)
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(XY.maganeckfilter10,tp,LOCATION_GRAVE,0,1,nil,tp) end
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	 if not  Duel.IsExistingMatchingCard(XY.maganeckfilter10,tp,LOCATION_GRAVE,0,1,nil,tp) then return end
-   local c=e:GetHandler()
-   Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(33403530,1))
-   local g=Duel.SelectMatchingCard(tp,XY.maganeckfilter10,tp,LOCATION_GRAVE,0,1,1,nil,tp)
-   if g:GetCount()>0 then
-	local tc=g:GetFirst()
-	if tc:IsCode(33403521)  then
-	  XY.maganere1(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403522)  then
-	 XY.maganere2(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403523) and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) then
-	XY.maganere3(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403524) and Duel.IsPlayerCanDraw(tp,3) then
-	XY.maganere4(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403525) and (Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil) or Duel.GetLocationCount(1-tp,LOCATION_MZONE)==0) then
-	 XY.maganere5(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403526) and Duel.IsPlayerCanDraw(tp,1) then
-	XY.maganere6(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403527) and Duel.IsExistingMatchingCard(XY.maganethfilter4,tp,LOCATION_GRAVE,0,1,nil) then
-	 XY.maganere7(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403528)  then
-	XY.maganere8(e,tp,eg,ep,ev,re,r,rp)
-	end
-	cm1=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
-	cm2=Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
-	if tc:IsCode(33403529) and cm1>=4 and  cm2>=4 and Duel.IsPlayerCanDraw(tp,1) then
-	 XY.maganere9(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403530)  then
-	 XY.maganere10(e,tp,eg,ep,ev,re,r,rp)
-	end  
-   end 
- if e:GetHandler():IsLocation(LOCATION_HAND) then Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT)end
-end
-
-function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(XY.maganethfilter0,tp,LOCATION_GRAVE,0,1,nil,tp) end
-end
-function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
-	 if not  Duel.IsExistingMatchingCard(XY.maganethfilter0,tp,LOCATION_GRAVE,0,1,nil,tp) then return end
-   local c=e:GetHandler()
-   Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(33403530,1))
-   local g=Duel.SelectMatchingCard(tp,XY.maganethfilter0,tp,LOCATION_GRAVE,0,1,1,nil,tp)
-   if g:GetCount()>0 then
-	local tc=g:GetFirst()
-	if tc:IsCode(33403521)  then
-	  XY.maganere1(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403522)  then
-	 XY.maganere2(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403523) and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) then
-	XY.maganere3(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403524) and Duel.IsPlayerCanDraw(tp,3) then
-	XY.maganere4(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403525) and (Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil) or Duel.GetLocationCount(1-tp,LOCATION_MZONE)==0) then
-	 XY.maganere5(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403526) and Duel.IsPlayerCanDraw(tp,1) then
-	XY.maganere6(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403527) and Duel.IsExistingMatchingCard(XY.maganethfilter4,tp,LOCATION_GRAVE,0,1,nil) then
-	 XY.maganere7(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403528)  then
-	XY.maganere8(e,tp,eg,ep,ev,re,r,rp)
-	end
-	cm1=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
-	cm2=Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
-	if tc:IsCode(33403529) and cm1>=4 and  cm2>=4 and Duel.IsPlayerCanDraw(tp,1) then
-	 XY.maganere9(e,tp,eg,ep,ev,re,r,rp)
-	end
-	if tc:IsCode(33403530)  then
-	 XY.maganere10(e,tp,eg,ep,ev,re,r,rp)
-	end  
-   end 
- if e:GetHandler():IsLocation(LOCATION_HAND) then Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT)end
-end
-
-
-
-
-
-
-
-

expansions/script/c33403521.lua

---言叶无限欺 幕影
-local m=33403521
-local cm=_G["c"..m]
-Duel.LoadScript("c33400000.lua")
-function cm.initial_effect(c)
-	 XY.magane(c)
- --Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(cm.cost)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-
-end
-function cm.cfilter(c)
-	return c:IsSetCard(0x6349) and c:IsAbleToGraveAsCost()
-end
-function cm.costfilter1(c)
-	return  c:IsSetCard(0x6349) or c:IsCode(33403520) 
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_DECK,0,1,nil) and Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
-	local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
-	local tc=g1:GetFirst()
-	Duel.ConfirmCards(1-tp,tc)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_DECK,0,1,1,nil)
-	Duel.SendtoGrave(g,REASON_COST)
-	   Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
-end
-function cm.filter(c)
-	return c:IsCode(33403520) and c:IsAbleToHand()
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local tc=Duel.GetFirstMatchingCard(cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,nil)
-	if tc then
-		Duel.SendtoHand(tc,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,tc)
-	end
-end
\ No newline at end of file

expansions/script/c33403522.lua

---言叶无限欺 灭计
-local m=33403522
-local cm=_G["c"..m]
-Duel.LoadScript("c33400000.lua")
-function cm.initial_effect(c)
-	 XY.magane(c)
- --Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,1))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_DAMAGE+CATEGORY_TOGRAVE)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(cm.cost)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-
-end
-function cm.costfilter1(c)
-	return  c:IsSetCard(0x6349) or c:IsCode(33403520) 
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return  Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
-	local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
-	local tc=g1:GetFirst()
-	Duel.ConfirmCards(1-tp,tc)
- Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
-end
-function cm.filter(c)
-	return c:IsCode(33403520) and c:IsAbleToHand()
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_ONFIELD)
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_ONFIELD)
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	 Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-		local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-		if g:GetCount()>0 then
-			Duel.HintSelection(g)
-			if Duel.SendtoGrave(g,REASON_EFFECT)~=0 then 
-			Duel.Damage(1-tp,500,REASON_EFFECT)
-			end
-		end
-	if Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then 
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-		local tc=Duel.GetFirstMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,nil)
-		if tc then
-			Duel.SendtoHand(tc,nil,REASON_EFFECT)
-			Duel.ConfirmCards(1-tp,tc)
-		end
-	end
-end
\ No newline at end of file

expansions/script/c33403523.lua

---言叶无限欺 残杀
-local m=33403523
-local cm=_G["c"..m]
-Duel.LoadScript("c33400000.lua")
-function cm.initial_effect(c)
-	 XY.magane(c)
- --Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(cm.cost)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-
-end
-function cm.costfilter1(c)
-	return  c:IsSetCard(0x6349) or c:IsCode(33403520) 
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return  Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
-	local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
-	local tc=g1:GetFirst()
-	Duel.ConfirmCards(1-tp,tc)
- Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
-end
-function cm.filter(c)
-	return c:IsCode(33403520) and c:IsAbleToHand()
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-  if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
-	local sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler())
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,sg,sg:GetCount(),0,0)
-end
-function cm.spfilter(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	local sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
-	Duel.SendtoGrave(sg,REASON_EFFECT)
-	Duel.Damage(1-tp,500,REASON_EFFECT)
-	 if Duel.IsExistingMatchingCard(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,nil,e,tp) and  Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then 
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-			if g:GetCount()>0 then
-			 Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-			end
-	 end
-	local g2=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.spfilter),1-tp,LOCATION_GRAVE,0,nil,e,1-tp)
-	if g2:GetCount()>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
-		and Duel.SelectYesNo(1-tp,aux.Stringid(m,1)) then
-		Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON)
-		local sg=g2:Select(1-tp,1,1,nil)
-		Duel.SpecialSummon(sg,0,1-tp,1-tp,false,false,POS_FACEUP)
-	end
-end

expansions/script/c33403524.lua

---言叶无限欺 感伤
-local m=33403524
-local cm=_G["c"..m]
-Duel.LoadScript("c33400000.lua")
-function cm.initial_effect(c)
-	 XY.magane(c)
- --Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(cm.cost)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-
-end
-function cm.costfilter1(c)
-	return  c:IsSetCard(0x6349) or c:IsCode(33403520) 
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return  Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
-	local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
-	local tc=g1:GetFirst()
-	Duel.ConfirmCards(1-tp,tc)
-  Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
-end
-function cm.filter(c,tp)
-	return (c:IsSetCard(0x6349) or c:IsCode(33403520) or c:GetOwner()==1-tp) and c:IsAbleToGrave()
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
- if chk==0 then return Duel.IsPlayerCanDraw(tp,2)
-		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,e:GetHandler(),tp) end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_ONFIELD)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,e:GetHandler(),tp)
-	local tc=g:GetFirst()
-	if tc then Duel.SendtoGrave(tc,REASON_EFFECT) end
-	Duel.Draw(tp,2,REASON_EFFECT)   
-end
-

expansions/script/c33403525.lua

---言叶无限欺 掠夺
-local m=33403525
-local cm=_G["c"..m]
-Duel.LoadScript("c33400000.lua")
-function cm.initial_effect(c)
-	 XY.magane(c)
- --Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_CONTROL+CATEGORY_DAMAGE)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(cm.cost)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-
-end
-function cm.costfilter1(c)
-	return  c:IsSetCard(0x6349) or c:IsCode(33403520) 
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return  Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
-	local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
-	local tc=g1:GetFirst()
-	Duel.ConfirmCards(1-tp,tc)
- Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
-end
-function cm.filter(c,tp)
-	return c:GetOwner()==1-tp
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
- if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsControlerCanBeChanged() end
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end   
-	local g=Duel.GetMatchingGroup(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,nil)
-	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
-	local g=Duel.SelectMatchingCard(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil)  
-	Duel.GetControl(g,tp)
-	local ss=Duel.GetMatchingGroupCount(cm.filter,tp,LOCATION_ONFIELD,0,nil,tp)
-	Duel.Damage(1-tp,ss*500,REASON_EFFECT)
-end
-
-

expansions/script/c33403526.lua

---言叶无限欺 安眠
-local m=33403526
-local cm=_G["c"..m]
-Duel.LoadScript("c33400000.lua")
-function cm.initial_effect(c)
-	 XY.magane(c)
- --Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(cm.cost)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-
-end
-function cm.costfilter1(c)
-	return  c:IsSetCard(0x6349) or c:IsCode(33403520) 
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return  Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
-	local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
-	local tc=g1:GetFirst()
-	Duel.ConfirmCards(1-tp,tc)
- Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
-end
-function cm.tgfilter(c)
-	return (c:IsSetCard(0x6349) or c:IsCode(33403520))  and c:IsAbleToGrave()
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
- if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
-   Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	local e2=Effect.CreateEffect(e:GetHandler())
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_CHANGE_DAMAGE)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetTargetRange(1,0)
-	e2:SetValue(cm.val)
-	e2:SetReset(RESET_PHASE+PHASE_END,2)
-	Duel.RegisterEffect(e2,tp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 then
-	   Duel.SendtoGrave(g,REASON_EFFECT)
-	end  
-	Duel.Draw(tp,1,REASON_EFFECT)
-end
-function cm.val(e,re,dam,r,rp,rc)
-	if dam<=3000 then
-		return 0
-	else
-		return dam
-	end
-end
-
-

expansions/script/c33403527.lua

---言叶无限欺 谎言
-local m=33403527
-local cm=_G["c"..m]
-Duel.LoadScript("c33400000.lua")
-function cm.initial_effect(c)
-	 XY.magane(c)
- --Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(cm.cost)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-
-end
-function cm.costfilter1(c)
-	return  c:IsSetCard(0x6349) or c:IsCode(33403520) 
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return  Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
-	local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
-	local tc=g1:GetFirst()
-	Duel.ConfirmCards(1-tp,tc)
- Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
-end
-function cm.tgfilter(c)
-	return (c:IsSetCard(0x6349) or c:IsCode(33403520))  and c:IsAbleToGrave() 
-end
-function cm.thfilter(c,cd)
-	return ((c:IsSetCard(0x6349) and not c:IsCode(cd)) or c:IsCode(33403520))  and c:IsAbleToHand()
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
- if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
-	 Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
-	local tc=g:GetFirst()
-	if tc and  Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil,tc:GetCode()) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then		
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-		local g2=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil,tc:GetCode())
-		Duel.SendtoHand(g2,nil,REASON_EFFECT)
-	end
-end
-
-
-
-

expansions/script/c33403528.lua

---言叶无限欺 联合
-local m=33403528
-local cm=_G["c"..m]
-Duel.LoadScript("c33400000.lua")
-function cm.initial_effect(c)
-	 XY.magane(c)
- --Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,2))
-	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(cm.cost)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-
-end
-function cm.cfilter(c)
-	return c:IsSetCard(0x6349) and c:IsAbleToGraveAsCost()
-end
-function cm.costfilter1(c)
-	return  c:IsSetCard(0x6349) or c:IsCode(33403520) 
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_DECK,0,1,nil) and Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
-	local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
-	local tc=g1:GetFirst()
-	Duel.ConfirmCards(1-tp,tc)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_DECK,0,1,1,nil)
-	Duel.SendtoGrave(g,REASON_COST)
- Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
-end
-function cm.filter(c)
-	return c:IsCode(33403520) and c:IsFaceup()
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1,nil)  end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_MZONE,0,nil)
-	if g:GetCount()>0  then
-		local g2=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
-		local atk=g2:GetSum(Card.GetAttack)
-		local def=g2:GetSum(Card.GetDefense)	   
-		local tc=g:GetFirst()
-		while tc do
-			if atk>0 then
-				local e1=Effect.CreateEffect(c)
-				e1:SetType(EFFECT_TYPE_SINGLE)
-				e1:SetCode(EFFECT_UPDATE_ATTACK)
-				e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
-				e1:SetValue(atk)
-				e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-				tc:RegisterEffect(e1)	  
-			end
-			if def>0 then
-				local e1=Effect.CreateEffect(c)
-				e1:SetType(EFFECT_TYPE_SINGLE)
-				e1:SetCode(EFFECT_UPDATE_DEFENSE)
-				e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
-				e1:SetValue(def)
-				e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-				tc:RegisterEffect(e1)	  
-			end
-			local ss=Duel.GetMatchingGroup(nil,tp,LOCATION_MZONE,0,nil):GetCount()
-			local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_EXTRA_ATTACK)
-			e1:SetValue(ss)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-			tc:RegisterEffect(e1)
-			tc=g:GetNext()
-		end
-	end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_CANNOT_ATTACK)
-	e1:SetTargetRange(LOCATION_MZONE,0)
-	e1:SetTarget(cm.atktg)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end
-function cm.atktg(e,c)
-	return not c:IsCode(33403520)
-end
\ No newline at end of file

expansions/script/c33403529.lua

---言叶无限欺 布局
-local m=33403529
-local cm=_G["c"..m]
-Duel.LoadScript("c33400000.lua")
-function cm.initial_effect(c)
-	 XY.magane(c)
- --Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(cm.cost)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-
-end
-function cm.costfilter1(c)
-	return  c:IsSetCard(0x6349) or c:IsCode(33403520) 
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return  Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
-	local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
-	local tc=g1:GetFirst()
-	Duel.ConfirmCards(1-tp,tc)
- Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
-end
-function cm.filter1(c)
-	return (c:IsSetCard(0x6349) or c:IsCode(33403520)) and c:IsAbleToHand()
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local b1=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
-	local b2=Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
-	if chk==0 then return b1>=4 and  b2>=4 end
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	local cm1=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
-	local cm2=Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
-	if cm1>=4 then
-		local g=Duel.GetDecktopGroup(tp,4)
-		Duel.ConfirmCards(tp,g)
-		if g:IsExists(cm.filter1,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-		local sg=g:FilterSelect(tp,cm.filter1,1,1,nil)
-		Duel.DisableShuffleCheck()
-		Duel.SendtoHand(sg,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,sg)
-		Duel.ShuffleHand(tp)
-		Duel.SortDecktop(tp,tp,3)
-		else Duel.SortDecktop(tp,tp,4) 
-		end
-	end
-	if cm2>=4 then
-		  local g=Duel.GetDecktopGroup(1-tp,4)
-		  Duel.ConfirmCards(tp,g)
-		  if g:IsExists(cm.filter1,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
-		  Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-		  local sg=g:FilterSelect(tp,cm.filter1,1,1,nil)
-		  Duel.DisableShuffleCheck()
-		  Duel.SendtoHand(sg,tp,REASON_EFFECT)
-		  Duel.ConfirmCards(1-tp,sg)
-		  Duel.ShuffleHand(tp)
-		  Duel.SortDecktop(tp,1-tp,3)
-		  else Duel.SortDecktop(tp,1-tp,4) 
-		  end				
-	end
-end

expansions/script/c33403530.lua

---言叶无限欺 永远的诈欺师
-local m=33403530
-local cm=_G["c"..m]
-Duel.LoadScript("c33400000.lua")
-function cm.initial_effect(c)
-	 XY.magane(c)
- --Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(cm.cost)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-end
-function cm.costfilter1(c)
-	return  c:IsSetCard(0x6349) or c:IsCode(33403520) 
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return  Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) and  Duel.GetFlagEffect(tp,m)==0 and Duel.GetFlagEffect(tp,m+30000)==0 end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
-	local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
-	local tc=g1:GetFirst()
-	Duel.ConfirmCards(1-tp,tc)
- Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-  Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
-end
-

expansions/script/c47530030.lua

---沙扎比
-function c47530030.initial_effect(c)
-    --link summon
-    aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),4)
-    c:EnableReviveLimit()    
-    --atk
-    local e1=Effect.CreateEffect(c)
-    e1:SetType(EFFECT_TYPE_SINGLE)
-    e1:SetCode(EFFECT_UPDATE_ATTACK)
-    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-    e1:SetRange(LOCATION_MZONE)
-    e1:SetValue(c47530030.val)
-    c:RegisterEffect(e1)
-    --soul of zeon
-    local e2=Effect.CreateEffect(c)
-    e2:SetType(EFFECT_TYPE_SINGLE)
-    e2:SetCode(EFFECT_IMMUNE_EFFECT)
-    e2:SetRange(LOCATION_MZONE)
-    e2:SetCondition(c47530030.incon1)
-    e2:SetValue(c47530030.efilter)
-    c:RegisterEffect(e2)
-    local e3=Effect.CreateEffect(c)
-    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-    e3:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
-    e3:SetRange(LOCATION_MZONE)
-    e3:SetCondition(c47530030.incon2)
-    e3:SetOperation(c47530030.atkop)
-    c:RegisterEffect(e3)
-    local e4=Effect.CreateEffect(c)
-    e4:SetType(EFFECT_TYPE_QUICK_O)
-    e4:SetRange(LOCATION_MZONE)
-    e4:SetCategory(CATEGORY_NEGATE+CATEGORY_TODECK)
-    e4:SetCode(EVENT_CHAINING)
-    e4:SetCondition(c47530030.incon3)
-    e4:SetCost(c47530030.negcost)
-    e4:SetTarget(c47530030.negtg)
-    e4:SetOperation(c47530030.negop)
-    c:RegisterEffect(e4) 
-    local e5=Effect.CreateEffect(c)
-    e5:SetType(EFFECT_TYPE_IGNITION)
-    e5:SetRange(LOCATION_MZONE)
-    e5:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
-    e5:SetCondition(c47530030.incon4)
-    e5:SetTarget(c47530030.aitg)
-    e5:SetOperation(c47530030.aiop)
-    c:RegisterEffect(e5)
-end
-function c47530030.val(e,c)
-    return Duel.GetMatchingGroupCount(Card.IsRace,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil,RACE_MACHINE)*300
-end
-function c47530030.incon1(e,c)
-    local c=e:GetHandler()
-    return Duel.GetMatchingGroupCount(Card.IsRace,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil,RACE_MACHINE)>=2
-end
-function c47530030.incon2(e,c)
-    local c=e:GetHandler()
-    return Duel.GetMatchingGroupCount(Card.IsRace,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil,RACE_MACHINE)>=3
-end
-function c47530030.incon4(e,c)
-    local c=e:GetHandler()
-    return Duel.GetMatchingGroupCount(Card.IsRace,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil,RACE_MACHINE)>8
-end
-function c47530030.efilter(e,te)
-    return te:GetOwner()~=e:GetOwner()
-end
-function c47530030.atkop(e,tp,eg,ep,ev,re,r,rp)
-    local c=e:GetHandler()
-    local e1=Effect.CreateEffect(c)
-    e1:SetType(EFFECT_TYPE_FIELD)
-    e1:SetCode(EFFECT_DISABLE)
-    e1:SetTargetRange(0,LOCATION_ONFIELD)
-    e1:SetTarget(c47530030.distg)
-    e1:SetReset(RESET_PHASE+PHASE_DAMAGE)
-    Duel.RegisterEffect(e1,tp)
-    local e2=Effect.CreateEffect(c)
-    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-    e2:SetCode(EVENT_CHAIN_SOLVING)
-    e2:SetRange(LOCATION_MZONE)
-    e2:SetOperation(c47530030.disop)
-    e2:SetReset(RESET_PHASE+PHASE_DAMAGE)
-    Duel.RegisterEffect(e2,tp)
-    local e3=Effect.CreateEffect(c)
-    e3:SetType(EFFECT_TYPE_FIELD)
-    e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
-    e3:SetRange(LOCATION_MZONE)
-    e3:SetTargetRange(0,LOCATION_MZONE)
-    e3:SetReset(RESET_PHASE+PHASE_DAMAGE)
-    Duel.RegisterEffect(e3,tp)
-    local tc=Duel.GetAttackTarget()
-    if not tc then return end
-    if tc:IsControler(tp) then tc=Duel.GetAttacker() end
-        local e1=Effect.CreateEffect(c)
-        e1:SetType(EFFECT_TYPE_SINGLE)
-        e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
-        e1:SetRange(LOCATION_MZONE)
-        e1:SetCode(EFFECT_SET_ATTACK_FINAL)
-        e1:SetValue(0)
-        e1:SetReset(RESET_PHASE+PHASE_DAMAGE)
-        tc:RegisterEffect(e1,true)
-        local e2=Effect.CreateEffect(c)
-        e2:SetType(EFFECT_TYPE_SINGLE)
-        e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
-        e2:SetRange(LOCATION_MZONE)
-        e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
-        e2:SetValue(0)
-        e2:SetReset(RESET_PHASE+PHASE_DAMAGE)
-        tc:RegisterEffect(e2,true)
-end
-function c47530030.distg(e,c)
-    return c~=e:GetHandler()
-end
-function c47530030.disop(e,tp,eg,ep,ev,re,r,rp)
-    local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
-    if bit.band(loc,LOCATION_ONFIELD)~=0 then
-        Duel.NegateEffect(ev)
-    end
-end
-function c47530030.incon3(e,tp,eg,ep,ev,re,r,rp)
-    local c=e:GetHandler()
-    return Duel.GetMatchingGroupCount(Card.IsRace,tp,LOCATION_MZONE,LOCATION_MZONE,nil,RACE_MACHINE)>=4 and not c:IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) and rp==1-tp
-end
-function c47530030.cfilter(c,g)
-    return g:IsContains(c) and not c:IsStatus(STATUS_BATTLE_DESTROYED)
-end
-function c47530030.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
-    local lg=e:GetHandler():GetLinkedGroup()
-    if chk==0 then return Duel.CheckReleaseGroup(tp,c47530030.cfilter,1,nil,lg) end
-    local g=Duel.SelectReleaseGroup(tp,c47530030.cfilter,1,1,nil,lg)
-    Duel.Release(g,REASON_COST)
-end
-function c47530030.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return true end
-    local ng=Group.CreateGroup()
-    local dg=Group.CreateGroup()
-    for i=1,ev do
-        local te,tgp=Duel.GetChainInfo(i,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
-        if tgp~=tp and Duel.IsChainNegatable(i) then
-            local tc=te:GetHandler()
-            ng:AddCard(tc)
-            if tc:IsOnField() and tc:IsRelateToEffect(te) and not tc:IsHasEffect(EFFECT_CANNOT_TO_DECK) and Duel.IsPlayerCanSendtoDeck(tp,tc) then
-                dg:AddCard(tc)
-            end
-        end
-    end
-    Duel.SetTargetCard(dg)
-    Duel.SetOperationInfo(0,CATEGORY_NEGATE,ng,ng:GetCount(),0,0)
-    Duel.SetOperationInfo(0,CATEGORY_TODECK,dg,dg:GetCount(),0,0)
-end
-function c47530030.negop(e,tp,eg,ep,ev,re,r,rp)
-    local dg=Group.CreateGroup()
-    for i=1,ev do
-        local te,tgp=Duel.GetChainInfo(i,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
-        if tgp~=tp and Duel.NegateActivation(i) then
-            local tc=te:GetHandler()
-            if tc:IsRelateToEffect(e) and tc:IsRelateToEffect(te) and not tc:IsHasEffect(EFFECT_CANNOT_TO_DECK) and Duel.IsPlayerCanSendtoDeck(tp,tc) then
-                tc:CancelToGrave()
-                dg:AddCard(tc)
-            end
-        end
-    end
-    Duel.SendtoDeck(dg,nil,2,REASON_EFFECT)
-end
-function c47530030.hspfilter(c,e,tp)
-    return c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
-end
-function c47530030.aitg(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-        and Duel.IsExistingMatchingCard(c47530030.hspfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) and Duel.IsExistingMatchingCard(c47530030.hspfilter,1-tp,LOCATION_EXTRA,0,1,nil,e,1-tp) end
-    local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0x1e,0x1e,e:GetHandler())
-    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
-    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,1-tp,LOCATION_EXTRA)
-end
-function c47530030.aiop(e,tp,eg,ep,ev,re,r,rp)
-    local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0x1e,0x1e,nil)
-    if Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)~=0 then
-        local g=Duel.GetMatchingGroup(c47530030.hspfilter,1-tp,LOCATION_EXTRA,0,nil,e,1-tp)
-        if g:GetCount()>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then
-            Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON)
-            local sg=g:Select(1-tp,1,1,nil)
-            Duel.SpecialSummon(sg,0,1-tp,1-tp,true,false,POS_FACEUP)
-        end   
-        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
-        local g1=Duel.GetMatchingGroup(c47530030.hspfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
-        if g1:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
-            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-            local sg=g:Select(tp,1,1,nil)
-            Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEUP)
-        end
-    end
-end
\ No newline at end of file

expansions/script/c47530102.lua

---力天使高达
-function c47530102.initial_effect(c)
-    --link summon
-    aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2)
-    c:EnableReviveLimit()    
-    --direct attack
-    local e1=Effect.CreateEffect(c)
-    e1:SetType(EFFECT_TYPE_SINGLE)
-    e1:SetCode(EFFECT_DIRECT_ATTACK)
-    c:RegisterEffect(e1)
-    --lock on
-    local e2=Effect.CreateEffect(c)
-    e2:SetType(EFFECT_TYPE_IGNITION)
-    e2:SetRange(LOCATION_MZONE)
-    e2:SetCountLimit(1)
-    e2:SetCost(c47530102.locost)
-    e2:SetTarget(c47530102.lotg)
-    e2:SetOperation(c47530102.loop)
-    c:RegisterEffect(e2)
-    --GN Sniper Rifle
-    local e3=Effect.CreateEffect(c)
-    e3:SetCategory(CATEGORY_REMOVE)
-    e3:SetType(EFFECT_TYPE_QUICK_O)
-    e3:SetRange(LOCATION_SZONE)
-    e3:SetCode(EVENT_FREE_CHAIN)
-    e3:SetCountLimit(1)
-    e3:SetProperty(EFFECT_FLAG_NO_TURN_RESET)
-    e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
-    e3:SetTarget(c47530102.sptg)
-    e3:SetOperation(c47530102.spop)
-    c:RegisterEffect(e3)
-    --
-    local e4=Effect.CreateEffect(c)
-    e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
-    e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-    e4:SetRange(LOCATION_SZONE)
-    e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-    e4:SetCondition(c47530102.spcon)
-    e4:SetOperation(c47530102.spop1)
-    c:RegisterEffect(e4)    
-end
-function c47530102.locost(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end
-    local e1=Effect.CreateEffect(e:GetHandler())
-    e1:SetType(EFFECT_TYPE_SINGLE)
-    e1:SetCode(EFFECT_CANNOT_ATTACK)
-    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH)
-    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-    e:GetHandler():RegisterEffect(e1)
-end
-function c47530102.lotg(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
-end
-function c47530102.loop(e,tp,eg,ep,ev,re,r,rp)
-    local c=e:GetHandler()
-    if Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then
-        Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-        local e1=Effect.CreateEffect(c)
-        e1:SetCode(EFFECT_CHANGE_TYPE)
-        e1:SetType(EFFECT_TYPE_SINGLE)
-        e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-        e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
-        e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
-        e1:SetLabelObject(c)
-        c:RegisterEffect(e1)
-    end
-end
-function c47530102.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,bc) end
-    Duel.SetOperationInfo(0,CATEGORY_REMOVE,1,1,0,0)
-end
-function c47530102.spop(e,tp,eg,ep,ev,re,r,rp)
-    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-    local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,1,nil)
-    local tc=g:GetFirst()
-    if tc then
-        Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)
-    end
-end
-function c47530102.spcon(e,tp,eg,ep,ev,re,r,rp)
-    return Duel.GetTurnPlayer()==tp
-end
-function c47530102.spop1(e,tp,eg,ep,ev,re,r,rp)
-    local c=e:GetHandler()
-    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-end
\ No newline at end of file

expansions/strings.conf

@@ -685,7 +685,6 @@
 !setname 0x6344 万由里
 !setname 0x9344 白之女王
 !setname 0x5349 森罗万象
-!setname 0x6349 言叶无限欺
 !setname 0xa349 Re:CREATORS
 !counter 0x34f 时间指示物