得得得得得

expansions/script/c16199990.lua

@@ -248,24 +248,12 @@ function rk.backop(e,tp,eg,ep,ev,re,r,rp)
 		if c:IsFacedown() then
 			Duel.ConfirmCards(1-tp,Group.FromCards(c))
 		end
-		local Reg=Card.RegisterEffect
-		function Card.RegisterEffect(card,effect,flag)
-			if effect:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) and c:GetFlagEffect(16199999)==0 then
-				local er=effect:Clone()
-				Reg(c,er,true)
-				Debug.Message(1)
-			end
-			return Reg(card,effect,flag)
-		end
 		c:ReplaceEffect(tcode,0,0)
-		Duel.CreateToken(tp,tcode)
 		Duel.Hint(HINT_CARD,0,tcode)
 		if c:IsLocation(LOCATION_HAND) then
 			local sp=c:GetControler()
 			Duel.ShuffleHand(sp)
 		end
-		Card.RegisterEffect=Reg
-		c:RegisterFlagEffect(16199999,0,0,0)
 	end
 	Duel.Readjust()
 end

expansions/script/c17032610.lua

+--翠之化猫 伊维亚
+function c17032610.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--scale change
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(17032610,0))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1)
+	e1:SetCost(c17032610.sccost)
+	e1:SetOperation(c17032610.scop)
+	c:RegisterEffect(e1)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(17032610,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e2:SetCondition(c17032610.spcon)
+	e2:SetTarget(c17032610.sptg)
+	e2:SetOperation(c17032610.spop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+	--
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e4:SetCode(EVENT_BE_MATERIAL)
+	e4:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
+	e4:SetCondition(c17032610.atkcon)
+	e4:SetOperation(c17032610.atkop)
+	c:RegisterEffect(e4)
+end
+function c17032610.sccost(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 c17032610.scop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CHANGE_LSCALE)
+	e1:SetValue(10)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CHANGE_RSCALE)
+	c:RegisterEffect(e2)
+end
+function c17032610.cfilter(c)
+	return c:IsType(TYPE_FIELD)
+end
+function c17032610.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_FZONE,LOCATION_FZONE,1,nil)
+end
+function c17032610.spfilter1(c,e,tp)
+	return c:IsSetCard(0x37f6) and c:IsType(TYPE_PENDULUM) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) 
+		and Duel.IsExistingMatchingCard(c17032610.spfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp,c)
+end
+function c17032610.synfilter(c,g)
+	return c:IsSynchroSummonable(nil,g)
+end
+function c17032610.spfilter2(c,e,tp,mc)
+	if c~=e:GetHandler() then return false end
+	local g=Group.FromCards(c,mc)
+	local e1=nil
+	local e2=nil
+	e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SYNCHRO_LEVEL)
+	e1:SetValue(c17032610.slevel)
+	mc:RegisterEffect(e1,true)
+	local res=Duel.IsExistingMatchingCard(c17032610.synfilter,tp,LOCATION_EXTRA,0,1,nil,g)
+	if e1 then e1:Reset() end
+	if e2 then e2:Reset() end
+	return res
+end
+function c17032610.slevel(e,c)
+	local lv=e:GetHandler():GetLevel()
+	local lv2=e:GetHandler():GetLeftScale()
+	return lv2*65536+lv
+end
+function c17032610.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c17032610.spfilter1,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp,c) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
+end
+function c17032610.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,c17032610.spfilter1,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp,c)
+	local tc=g:GetFirst()
+	local mg=Group.FromCards(c,tc)
+	if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SYNCHRO_LEVEL)
+		e1:SetValue(c17032610.slevel)
+		tc:RegisterEffect(e1,true)
+	end
+	Duel.SpecialSummonComplete()
+	if mg:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<2 then return end
+	local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,nil,mg)
+	if g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg)
+	end
+end
+function c17032610.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	return r==REASON_SYNCHRO and e:GetHandler():GetReasonCard():IsRace(RACE_DRAGON)
+end
+function c17032610.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local rc=c:GetReasonCard()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetCondition(c17032610.aacon)
+	e1:SetValue(2000)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	rc:RegisterEffect(e1,true)
+end
+function c17032610.aacon(e)
+	return Duel.GetTurnPlayer()~=e:GetHandlerPlayer()
+end
\ No newline at end of file

expansions/script/c33200514.lua

@@ -117,14 +117,6 @@ function c33200514.eqop(e,tp,eg,ep,ev,re,r,rp)
 			Duel.Hint(HINT_CARD,tp,33200503)
 			Duel.RegisterFlagEffect(tp,33200503,RESET_PHASE+PHASE_END,0,2)
 		end
-		if tc:GetOriginalCode()==33200505 and Duel.IsExistingMatchingCard(c33200505.thfilter,tp,LOCATION_DECK,0,1,nil) then
-			Duel.Hint(HINT_CARD,tp,33200505)
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-			local g=Duel.SelectMatchingCard(tp,c33200505.thfilter,tp,LOCATION_DECK,0,1,1,nil)
-			if g:GetCount()>0 then
-				Duel.SendtoHand(g,nil,REASON_EFFECT)
-			end
-		end 
 		if tc:GetOriginalCode()==33200511 and Duel.IsExistingMatchingCard(c33200511.thfilter,tp,LOCATION_DECK,0,1,nil) then 
 			Duel.Hint(HINT_CARD,tp,33200511)
 			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)

expansions/script/c53702500.lua

@@ -84,6 +84,13 @@ function cm.AllGlobalCheck(c)
 			alle4:SetOperation(cm.OSCheck)
 			Duel.RegisterEffect(alle4,0)
 		end
+		if x>=53727004 and x<=53727007 then
+			local alle6=Effect.CreateEffect(c)
+			alle6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			alle6:SetCode(EVENT_CHAINING)
+			alle6:SetOperation(cm.CyberNSwitch)
+			Duel.RegisterEffect(alle6,0)
+		end
 	end
 end
 function cm.UpRegi(e,tp,eg,ep,ev,re,r,rp)
@@ -455,7 +462,7 @@ function cm.ALCYakuActivate(code,atk,def,rac,att)
 		local list={e:GetLabel()}
 		local ct=1
 		if #list>1 then
-			Debug.Message("注：宣言的数字对应确认的卡的顺序（顺序与消息记录相同）")
+			Duel.Hint(24,tp,aux.Stringid(53702600,2))
 			ct=Duel.AnnounceLevel(tp,1,#list)
 		end
 		c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
@@ -1921,3 +1928,108 @@ function cm.LinkMonstertoSpell(c,marker)
 	e2:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
 	c:RegisterEffect(e2)
 end
+function cm.CyberNSwitch(c)
+	if Duel.GetFlagEffect(0,53727000)>0 then return end
+	Duel.RegisterFlagEffect(0,53727000,0,0,0)
+	Duel.Hint(HINT_OPSELECTED,0,aux.Stringid(53702500,8))
+	Duel.Hint(HINT_OPSELECTED,1,aux.Stringid(53702500,8))
+	Duel.SelectYesNo(0,aux.Stringid(53702600,1))
+	Duel.SelectYesNo(1,aux.Stringid(53702600,1))
+	if Duel.GetFlagEffect(0,53727097)==0 and not Duel.SelectYesNo(0,aux.Stringid(53702500,13)) then Duel.RegisterFlagEffect(0,53727097,0,0,0) end
+	if Duel.GetFlagEffect(1,53727097)==0 and not Duel.SelectYesNo(1,aux.Stringid(53702500,13)) then Duel.RegisterFlagEffect(1,53727097,0,0,0) end
+	if Duel.GetFlagEffect(0,53727097)>0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_FREE_CHAIN)
+		e1:SetOperation(cm.CyberNCheck)
+		Duel.RegisterEffect(e1,0)
+	end
+	if Duel.GetFlagEffect(0,53727097)>0 then
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetCode(EVENT_FREE_CHAIN)
+		e2:SetOperation(cm.CyberNCheck)
+		Duel.RegisterEffect(e2,1)
+	end
+end
+function cm.CyberNCheck(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(53702500,9))
+	local sel=Duel.SelectOption(tp,aux.Stringid(53727004,6),aux.Stringid(53727005,6),aux.Stringid(53727006,6),aux.Stringid(53727007,6))
+	if sel==0 then
+		Duel.Hint(24,tp,aux.Stringid(53702601,Duel.GetFlagEffect(0,53727004)+1))
+		Duel.Hint(24,tp,aux.Stringid(53702602,Duel.GetFlagEffect(0,53727037)+3))
+		Duel.Hint(24,tp,aux.Stringid(53702603,Duel.GetFlagEffect(0,53727070)+6))
+	elseif sel==1 then
+		Duel.Hint(24,tp,aux.Stringid(53702604,Duel.GetFlagEffect(0,53727005)+1))
+		Duel.Hint(24,tp,aux.Stringid(53702605,Duel.GetFlagEffect(0,53727038)+3))
+		Duel.Hint(24,tp,aux.Stringid(53702606,Duel.GetFlagEffect(0,53727071)+5))
+	elseif sel==2 then
+		Duel.Hint(24,tp,aux.Stringid(53702607,Duel.GetFlagEffect(0,53727006)+1))
+		Duel.Hint(24,tp,aux.Stringid(53702608,Duel.GetFlagEffect(0,53727039)+3))
+		Duel.Hint(24,tp,aux.Stringid(53702609,Duel.GetFlagEffect(0,53727072)+5))
+	else
+		Duel.Hint(24,tp,aux.Stringid(53702610,Duel.GetFlagEffect(0,53727007)+1))
+		Duel.Hint(24,tp,aux.Stringid(53702611,Duel.GetFlagEffect(0,53727040)+3))
+		Duel.Hint(24,tp,aux.Stringid(53702612,Duel.GetFlagEffect(0,53727073)+5))
+	end
+end
+function cm.CyberNRecord(c)
+	if Duel.GetFlagEffect(0,53727099)>0 then return end
+	Duel.RegisterFlagEffect(0,53727099,0,0,0)
+	Duel.Hint(HINT_OPSELECTED,0,aux.Stringid(53702500,10))
+	Duel.Hint(HINT_OPSELECTED,1,aux.Stringid(53702500,10))
+	Duel.SelectYesNo(0,aux.Stringid(53702600,0))
+	Duel.SelectYesNo(1,aux.Stringid(53702600,0))
+	local check0,check1=false,false
+	if Duel.GetFlagEffect(0,53727097)==0 and not Duel.SelectYesNo(0,aux.Stringid(53702500,13)) then Duel.RegisterFlagEffect(0,53727097,0,0,0) end
+	if Duel.GetFlagEffect(1,53727097)==0 and not Duel.SelectYesNo(1,aux.Stringid(53702500,13)) then Duel.RegisterFlagEffect(1,53727097,0,0,0) end
+	if Duel.SelectYesNo(0,aux.Stringid(53702500,12)) then check0=true end
+	if Duel.SelectYesNo(1,aux.Stringid(53702500,12)) then check1=true end
+	if not check0 or not check1 then check0,check1=false,false end
+	if Duel.GetFlagEffect(0,53727097)>0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_FREE_CHAIN)
+		if check0 then e1:SetOperation(cm.CyberNCode1) else e1:SetOperation(cm.CyberNCode2) end
+		Duel.RegisterEffect(e1,0)
+	end
+	if Duel.GetFlagEffect(1,53727097)>0 then
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetCode(EVENT_FREE_CHAIN)
+		if check1 then e2:SetOperation(cm.CyberNCode1) else e2:SetOperation(cm.CyberNCode2) end
+		Duel.RegisterEffect(e2,1)
+	end
+end
+function cm.CyberNCode1(e,tp,eg,ep,ev,re,r,rp)
+	local t={}
+	local max=Duel.GetFlagEffect(0,53727001)
+	for i=1,max do
+		if Duel.GetFlagEffect(0,53777000+i)>0 then
+			local cd=Duel.GetFlagEffectLabel(0,53777000+i)
+			if not cm.IsInTable(cd,t) and cd~=114 then table.insert(t,cd) end
+		else break end
+	end
+	local g=Group.CreateGroup()
+	for i=1,#t do
+		local cre=Duel.CreateToken(1-tp,t[i])
+		g:AddCard(cre)
+	end
+	Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(53702500,14))
+	Duel.ConfirmCards(tp,g)
+	Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(53702500,15))
+end
+function cm.CyberNCode2(e,tp,eg,ep,ev,re,r,rp)
+	local t={}
+	local max=Duel.GetFlagEffect(0,53727001)
+	for i=1,max do
+		if Duel.GetFlagEffect(0,53777000+i)>0 then
+			local cd=Duel.GetFlagEffectLabel(0,53777000+i)
+			if not cm.IsInTable(cd,t) and cd~=114 then table.insert(t,cd) end
+		else break end
+	end
+	local g=Group.CreateGroup()
+	Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(53702500,14))
+	for i=1,#t do Duel.Hint(HINT_CARD,tp,t[i]) end
+	Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(53702500,15))
+end

expansions/script/c71400006.lua

@@ -47,7 +47,8 @@ end
 function c71400006.operation1(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
+	if not tc:IsRelateToEffect(e) then return end
+	if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
@@ -64,6 +65,8 @@ function c71400006.operation1(e,tp,eg,ep,ev,re,r,rp)
 			Duel.HintSelection(g)
 			Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
 		end
+	else
+		Duel.SpecialSummonComplete()
 	end
 end
 function c71400006.con2(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c71400011.lua

@@ -80,7 +80,8 @@ function c71400011.op2(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local sg=g:Select(tp,1,1,nil)
 	local sc=sg:GetFirst()
-	if sc and Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEUP) then
+	if not sc then return end
+	if Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEUP) then
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
@@ -94,6 +95,8 @@ function c71400011.op2(e,tp,eg,ep,ev,re,r,rp)
 			local smg=mg:Select(tp,1,3,nil)
 			Duel.Overlay(sc,smg)
 		end
+	else
+		Duel.SpecialSummonComplete()
 	end
 end
 function c71400011.filter3(c)

expansions/script/c71400037.lua

@@ -30,8 +30,9 @@ function c71400037.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 end
 function c71400037.op1(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
-	local c=e:GetHandler()
-	if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
+	if not tc:IsRelateToEffect(e) then return end
+	if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
+		local c=e:GetHandler()
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_IGNORE_BATTLE_TARGET)
@@ -49,6 +50,6 @@ function c71400037.op1(e,tp,eg,ep,ev,re,r,rp)
 		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
 		e2:SetValue(1)
 		tc:RegisterEffect(e2)
-		Duel.SpecialSummonComplete()
 	end
+	Duel.SpecialSummonComplete()
 end
\ No newline at end of file

expansions/strings.conf

@@ -528,17 +528,12 @@
 !setname 0x7f5 P.C.
 !setname 0x37f5 L.P.
 !setname 0x97f5 公主形态
-!setname 0x7f6 苍空
-!setname 0x17f6 星晶兽
-!setname 0x37f6 天司
-!setname 0xf7f6 堕天司
 !setname 0x7f7 断绝之妖精
 !setname 0x7f8 敢达
 !setname 0x7fa 假面骑士
 !setname 0x37fb 零一/Zero-one
 !setname 0x47fb 亚克/Ark
 !counter 0x7f3 调停指示物
-#AddCodeList(17020120) 核心敢达卡名记述
 
 #圣灵兽骑 643865567 180 0x6e0-0x6ef
 !setname 0x36e1 调音