0813 wd

expansions/lflist.conf

@@ -75,6 +75,12 @@
 10736541 0
 11163044 0
 11450000 0
+11450900 0
+11450901 0
+11450902 0
+11450903 0
+11450904 0
+11450905 0
 11450998 0
 11450999 0
 11451000 0
@@ -84,6 +90,7 @@
 11451014 0
 11451015 0
 11451016 0
+11451017 0
 11451767 0
 11513043 0
 11513044 0
@@ -493,6 +500,7 @@
 60002083 0
 60002084 0
 60002192 0
+60002302 0
 60303246 0
 60969917 0
 61777317 0
@@ -1161,6 +1169,7 @@
 98920305 0
 98920313 0
 98920339 0
+98920358 0
 98920377 0
 98920401 0
 98920404 0
@@ -1168,6 +1177,7 @@
 98920488 0
 98920489 0
 98920490 0
+98920594 0
 98940000 0
 98940001 0
 98940004 0
@@ -1183,6 +1193,7 @@
 98940018 0
 98940019 0
 98940020 0
+98940026 0
 98940028 0
 98940039 0
 98940044 0
@@ -1494,7 +1505,7 @@
 30015045 0
 30015080 0
 30015100 0
-#「深土」系列
+#「深土」系列 - 沃亚森斯奥克斯 & 魔方
 9310011 0
 30013000 0
 30013005 0
@@ -1507,7 +1518,7 @@
 30013040 0
 30013045 0
 30013080 0
-#「荒神仪」系列
+#「荒神仪」系列 - Justfish
 14000240 0
 14000241 0
 14000242 0
@@ -1527,7 +1538,7 @@
 14000256 0
 14000257 0
 14000257 0
-#「苍辉」系列
+#「苍辉」系列 - ???
 4877515 0
 4877517 0
 4877519 0
@@ -1542,7 +1553,7 @@
 4877545 0
 4877549 0
 4877553 0
-#「异神」系列
+#「异神」系列 - 沃亚森斯奥克斯
 30005003 0
 30005005 0
 30005007 0
@@ -1551,7 +1562,7 @@
 30005040 0
 30005045 0
 30005000 0
-#「乱色狂歌」系列
+#「乱色狂歌」系列 - 竹子
 60001129 0
 60001130 0
 60001131 0
@@ -1568,7 +1579,7 @@
 60001142 0
 60001143 0
 60001143 0
-#「天花乱漫」系列
+#「天花乱漫」系列 - Justfish
 14001201 0
 14001202 0
 14001203 0
@@ -1589,13 +1600,6 @@
 14001218 0
 14001219 0
 14001220 0
-#「真神」系列 - Derren
-#91020010 0
-#91020011 0
-#91020012 0
-#91020013 0
-#91020014 0
-#91020015 0
 #「祭礼」系列 - 煌武院悠阳
 3050 0
 3051 0
@@ -1711,6 +1715,21 @@
 75147501 0
 75147502 0
 75147503 0
+#「终诞」 - 廷达的信徒
+15004450 0
+15004453 0
+15004456 0
+15004459 0
+15004461 0
+15004463 0
+15004466 0
+15004469 0
+15004471 0
+15004472 0
+15004476 0
+15004479 0
+15004491 0
+15004493 0
 #Tears are now in Japari Park Again!
 572850 1
 4928565 0
@@ -1727,6 +1746,14 @@
 60362066 0
 74920585 0
 77103950 1
+#230813
+10105560 0
+14010001 0
+33701402 0
+67200787 0
+79083105 0
+67200561 1
+82221058 1
 #230806
 9300018 0
 10105555 0
@@ -1754,7 +1781,6 @@
 82209088 0
 82209090 0
 82209146 0
-88880012 0
 91010023 0
 9911075 1
 11799915 1
@@ -2834,7 +2860,6 @@
 99988029 0
 99988038 0
 15000108 1
-14010001 2
 #220605
 10888915 0
 10888918 0
@@ -3607,7 +3632,6 @@
 79029055 2
 #210815
 9330003 0
-33701402 1
 #210808
 12524008 0
 12524010 0

expansions/script/c11450998.lua

@@ -88,24 +88,12 @@ function cm.imop(e,tp,eg,ep,ev,re,r,rp)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e1:SetCode(EVENT_CHAIN_SOLVING)
-	e1:SetCondition(cm.flcon)
 	e1:SetOperation(cm.thop)
 	e1:SetReset(RESET_PHASE+PHASE_END)
 	if not Duel.SelectYesNo(1-tp,aux.Stringid(m,2)) then
 		e1:SetLabel(1)
 	end
 	Duel.RegisterEffect(e1,tp)
-	local e2=Effect.CreateEffect(e:GetHandler())
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(0x10000000+m)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetTargetRange(1,0)
-	e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-	e:GetHandler():RegisterEffect(e2)
-end
-function cm.flcon(e)
-	return Duel.GetFlagEffect(e:GetHandlerPlayer(),m)~=0
 end
 function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 	if rp==1-tp and e:GetLabel()==1 then return end

expansions/script/c11451015.lua

@@ -3,7 +3,7 @@ local cm,m=GetID()
 function cm.initial_effect(c)
 	--link summon
 	c:EnableReviveLimit()
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_PENDULUM),2,2)
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_PENDULUM),1,2)
 	--psuedo Activate
 	local e0=Effect.CreateEffect(c)
 	e0:SetType(EFFECT_TYPE_ACTIVATE)
@@ -17,7 +17,7 @@ function cm.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_QUICK_O)
 	e1:SetCode(EVENT_DESTROYED)
 	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	--e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
 	e1:SetCondition(cm.condition)
 	e1:SetCost(cm.cost)
 	e1:SetTarget(cm.target)
@@ -112,11 +112,11 @@ function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 			Duel.DisableActionCheck(false)
 			dc:SetCardData(CARDDATA_TYPE,TYPE_TRAP)
 			res=dc:GetActivateEffect():IsActivatable(tp,true)
-			dc:SetCardData(CARDDATA_TYPE,TYPE_MONSTER+TYPE_PENDULUM+TYPE_EFFECT)
+			dc:SetCardData(CARDDATA_TYPE,TYPE_MONSTER+TYPE_LINK+TYPE_EFFECT)
 		else
 			res=(c:CheckActivateEffect(false,false,false)~=nil)
 		end
-		return res and Duel.CheckReleaseGroup(tp,cm.rfilter,2,nil) and Duel.CheckReleaseGroup(tp,cm.rfilter2,1,nil,tp,c)
+		return res and Duel.CheckReleaseGroup(tp,cm.rfilter,1,nil) and Duel.CheckReleaseGroup(tp,cm.rfilter2,1,nil,tp,c)
 	end
 end
 function cm.rfilter(c)
@@ -129,7 +129,7 @@ function cm.fselect(g,tp,sc)
 	return g:IsExists(cm.rfilter2,1,nil,tp,sc)
 end
 function cm.thfilter(c)
-	return c:IsSetCard(0x5977) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+	return c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
 end
 function cm.target(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
@@ -152,7 +152,7 @@ function cm.costop(e,tp,eg,ep,ev,re,r,rp)
 	local te=e:GetLabelObject()
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
 	local g=Duel.GetReleaseGroup(tp):Filter(cm.rfilter,nil)
-	local sg=g:SelectSubGroup(tp,cm.fselect,false,2,2,tp,c)
+	local sg=g:SelectSubGroup(tp,cm.fselect,false,1,#g,tp,c)
 	Duel.Release(sg,REASON_COST)
 	Duel.BreakEffect()
 	Duel.MoveToField(c,tp,tp,LOCATION_MZONE,POS_FACEUP,false)

expansions/script/c11451017.lua

+--梦色魔女·星宵
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--psuedo Activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e0)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
+	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(TIMINGS_CHECK_MONSTER)
+	--e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_ACTIVATE_COST)
+	e3:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetLabelObject(e1)
+	e3:SetTargetRange(1,0)
+	e3:SetTarget(cm.actarget)
+	e3:SetOperation(cm.costop)
+	c:RegisterEffect(e3)
+	--search
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(cm.spcon)
+	e2:SetCost(cm.spcost)
+	e2:SetTarget(cm.sptg)
+	e2:SetOperation(cm.spop)
+	c:RegisterEffect(e2)
+	if not cm.global_check then
+		cm.global_check=true
+		local _IsActiveType=Effect.IsActiveType
+		local _GetActiveType=Effect.GetActiveType
+		function Effect.GetActiveType(e)
+			local cost=e:GetCost()
+			if cost and cost==cm.cost then
+				return TYPE_TRAP
+			end
+			return _GetActiveType(e)
+		end
+		function Effect.IsActiveType(e,typ)
+			local typ2=e:GetActiveType()
+			return typ&typ2~=0
+		end
+	end
+end
+local KOISHI_CHECK=false
+if Card.SetCardData then KOISHI_CHECK=true end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then
+		local res=true
+		if KOISHI_CHECK then
+			Duel.DisableActionCheck(true)
+			local dc=Duel.CreateToken(tp,m)
+			Duel.DisableActionCheck(false)
+			dc:SetCardData(CARDDATA_TYPE,TYPE_TRAP)
+			res=dc:GetActivateEffect():IsActivatable(tp,true)
+			dc:SetCardData(CARDDATA_TYPE,TYPE_MONSTER+TYPE_EFFECT)
+		else
+			res=(c:CheckActivateEffect(false,false,false)~=nil)
+		end
+		local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+		return res and ft>0
+	end
+end
+function cm.tdfilter(c)
+	return c:GetPreviousLocation()==LOCATION_EXTRA and c:IsAbleToHand()
+end
+function cm.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetMZoneCount(tp)>0
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) and c:GetFlagEffect(m)==0 end
+	local fid=c:GetFieldID()
+	c:RegisterFlagEffect(m,RESET_EVENT+0xc7a0000+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,fid,aux.Stringid(m,2))
+	local g=Duel.GetMatchingGroup(cm.tdfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	local g2=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g2,1,PLAYER_ALL,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,PLAYER_ALL,LOCATION_MZONE)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.tdfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	local tc=g:GetFirst()
+	if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 then
+		local g2=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil,e,tp)
+		if #g2>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local sg=g2:Select(tp,1,1,nil)
+			Duel.SpecialSummon(sg:GetFirst(),0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+function cm.actarget(e,te,tp)
+	return te:GetHandler()==e:GetHandler() and te==e:GetLabelObject()
+end
+function cm.costop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local te=e:GetLabelObject()
+	Duel.MoveToField(c,tp,tp,LOCATION_MZONE,POS_FACEUP,false)
+	c:CreateEffectRelation(te)
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_ADD_TYPE)
+	e0:SetValue(TYPE_TRAP)
+	e0:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
+	c:RegisterEffect(e0,true)
+	local te2=te:Clone()
+	e:SetLabelObject(te2)
+	te:SetType(26)
+	c:RegisterEffect(te2,true)
+	local ev0=Duel.GetCurrentChain()+1
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EVENT_CHAIN_SOLVED)
+	e1:SetCountLimit(1)
+	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) return ev==ev0 end)
+	e1:SetOperation(cm.rsop)
+	e1:SetReset(RESET_CHAIN)
+	Duel.RegisterEffect(e1,tp)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_CHAIN_NEGATED)
+	Duel.RegisterEffect(e2,tp)
+end
+function cm.rsop(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	if e:GetCode()==EVENT_CHAIN_SOLVED and rc:IsRelateToEffect(re) then
+		rc:SetStatus(STATUS_EFFECT_ENABLED,true)
+		rc:SetStatus(STATUS_LEAVE_CONFIRMED,false)
+	end
+	if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) and not (rc:IsOnField() and rc:IsFacedown()) then
+		rc:SetStatus(STATUS_ACTIVATE_DISABLED,true)
+	end
+	re:Reset()
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	Debug.Message(re:IsActiveType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE))
+	return re:IsActiveType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
+function cm.mvfilter(c,tp)
+	return c:IsControler(tp) or c:IsControlerCanBeChanged()
+end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.mvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE,PLAYER_NONE,0)>0 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
+	local tc=Duel.SelectMatchingCard(tp,cm.mvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tp):GetFirst()
+	if tc and tc:IsControler(tp) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
+		local s=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,0)
+		local nseq=math.log(s,2)
+		Duel.MoveSequence(tc,nseq)
+	elseif tc then
+		Duel.GetControl(tc,tp)
+	end
+end
+function cm.d2hmatchfilter(c,cd)
+	return c:IsFaceup() and c:IsCode(cd)
+end
+function cm.thfilter2(c)
+	return c:IsFaceup() and c:IsType(TYPE_MONSTER)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter2,tp,LOCATION_EXTRA,0,1,nil) end
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(cm.thfilter2,tp,LOCATION_EXTRA,0,nil)
+	if #g>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local sg=g:Select(tp,1,1,nil)
+		if #sg>0 then
+			Duel.SendtoHand(sg,1-tp,REASON_EFFECT)
+			Duel.ShuffleHand(1-tp)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c11560317.lua

 --焦热龙翼·德莱克
 function c11560317.initial_effect(c)
 	--xyz summon
-	aux.AddXyzProcedure(c,c11560317.mfilter,8,2)
+	aux.AddXyzProcedure(c,nil,8,3)
 	aux.AddXyzProcedureLevelFree(c,c11560317.mfilter,nil,3,3)
 	c:EnableReviveLimit() 
 	--redirect 
@@ -40,6 +40,16 @@ function c11560317.initial_effect(c)
 	e3:SetTarget(c11560317.destg)
 	e3:SetOperation(c11560317.desop)
 	c:RegisterEffect(e3) 
+	--nc 
+	local e4=Effect.CreateEffect(c) 
+	e4:SetCategory(CATEGORY_TOEXTRA) 
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) 
+	e4:SetCode(EVENT_REMOVE) 
+	e4:SetProperty(EFFECT_FLAG_DELAY) 
+	e4:SetCost(c11560317.nccost)
+	e4:SetTarget(c11560317.nctg) 
+	e4:SetOperation(c11560317.ncop) 
+	c:RegisterEffect(e4) 
 	if not c11560317.global_check then
 		c11560317.global_check=true
 		local ge1=Effect.CreateEffect(c)
@@ -69,8 +79,8 @@ function c11560317.adestg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local flag=Duel.GetFlagEffectLabel(tp,11560317) 
 	if chk==0 then return flag and flag>=10 end 
 end  
-function c11560317.desfil(c) 
-	return c:IsFaceup() and c:IsDefenseBelow(2400)  
+function c11560317.desfil(c,def) 
+	return c:IsFaceup() and c:IsAttackBelow(def)  
 end 
 function c11560317.adesop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler() 
@@ -84,24 +94,16 @@ function c11560317.adesop(e,tp,eg,ep,ev,re,r,rp)
 	c:RegisterEffect(e1) 
 	local e2=e1:Clone() 
 	e2:SetCode(EFFECT_UPDATE_DEFENSE) 
-	e2:SetValue(2400) 
+	e2:SetValue(1600) 
 	c:RegisterEffect(e2) 
-		if Duel.IsExistingMatchingCard(c11560317.desfil,tp,0,LOCATION_MZONE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(11560317,0)) then 
-		local dc=Duel.SelectMatchingCard(tp,c11560317.desfil,tp,0,LOCATION_MZONE,1,1,nil):GetFirst() 
-		if Duel.Destroy(dc,REASON_EFFECT)~=0 and c:IsRelateToEffect(e) then 
-		local e1=Effect.CreateEffect(c) 
-		e1:SetType(EFFECT_TYPE_SINGLE) 
-		e1:SetCode(EFFECT_UPDATE_DEFENSE) 
-		e1:SetRange(LOCATION_MZONE) 
-		e1:SetValue(dc:GetDefense())
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD) 
-		c:RegisterEffect(e1) 
-		end  
+		if Duel.IsExistingMatchingCard(c11560317.desfil,tp,0,LOCATION_MZONE,1,nil,c:GetDefense()) and Duel.SelectYesNo(tp,aux.Stringid(11560317,1)) then 
+		local dc=Duel.SelectMatchingCard(tp,c11560317.desfil,tp,0,LOCATION_MZONE,1,1,nil,c:GetDefense()):GetFirst() 
+			Duel.Destroy(dc,REASON_EFFECT) 
 		end
 	end 
 end  
 function c11560317.xdesfil(c,def) 
-	return c:IsFaceup() and c:IsDefenseBelow(def)  
+	return c:IsFaceup() and c:IsAttackBelow(def)  
 end 
 function c11560317.destg(e,tp,eg,ep,ev,re,r,rp,chk) 
 	local c=e:GetHandler()
@@ -115,9 +117,47 @@ function c11560317.desop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(c11560317.xdesfil,tp,0,LOCATION_MZONE,nil,def)
 	if g:GetCount()>0 then  
 		Duel.Destroy(g,REASON_EFFECT) 
-		local flag=Duel.GetFlagEffectLabel(tp,11560317) 
-		if flag and flag>=10 then 
-		Duel.Damage(1-tp,2000,REASON_EFFECT) 
+		--local flag=Duel.GetFlagEffectLabel(tp,11560317) 
+		--if flag and flag>=10 then 
+		--  Duel.Damage(1-tp,2000,REASON_EFFECT) 
+		--end  
+	end  
+end 
+function c11560317.nccost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND,0,1,nil) end 
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND,0,1,1,nil) 
+	Duel.Remove(g,POS_FACEUP,REASON_COST) 
+end 
+function c11560317.nctg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToExtra() end 
+	Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0) 
+end 
+function c11560317.ncop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)~=0 then 
+		local e1=Effect.CreateEffect(c) 
+		e1:SetType(EFFECT_TYPE_FIELD) 
+		e1:SetCode(EFFECT_UPDATE_DEFENSE) 
+		e1:SetTargetRange(LOCATION_MZONE,0) 
+		e1:SetTarget(function(e,c) 
+		return c:IsRace(RACE_DRAGON) end) 
+		e1:SetValue(800)
+		Duel.RegisterEffect(e1,tp) 
+		local g=Duel.GetMatchingGroup(function(c) return c:IsFaceup() and c:GetAttack()>0 end,tp,0,LOCATION_MZONE,nil)
+		if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(11560317,0)) then 
+			Duel.BreakEffect() 
+			local tc=g:RandomSelect(tp,1):GetFirst() 
+			local pratk=tc:GetAttack() 
+			local e1=Effect.CreateEffect(c)  
+			e1:SetType(EFFECT_TYPE_SINGLE) 
+			e1:SetCode(EFFECT_UPDATE_ATTACK) 
+			e1:SetRange(LOCATION_MZONE)  
+			e1:SetValue(-2400) 
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e1) 
+			if pratk~=0 and tc:GetAttack()==0 then 
+				Duel.Destroy(tc,REASON_EFFECT) 
+			end 
 		end 
 	end 
 end 
@@ -125,4 +165,3 @@ end
 
 
 
-

expansions/script/c30000085.lua

 --终焉邪魂 堕天的使徒 萨利丝
-if not pcall(function() require("expansions/script/c30000100") end) then require("script/c30000100") end
-local m,cm=rscf.DefineCard(30000085)
+local m=30000085
+local cm=_G["c"..m]
 function cm.initial_effect(c)
-	local e1=rsef.I(c,{m,0},{1,m},"dr","ptg",LOCATION_HAND,nil,cm.drcost,cm.drtg,cm.drop)
-	local e2=rsef.STO(c,EVENT_REMOVE,{m,1},nil,"lv","de,dsp",nil,nil,rsop.target(cm.lvfilter,nil,LOCATION_MZONE),cm.lvop)
-end
-function cm.lvfilter(c)
-	return c:IsLevelAbove(1) and c:IsFaceup()
-end
-function cm.lvop(e,tp)
-	rsop.SelectSolve(HINTMSG_SELF,tp,cm.lvfilter,tp,LOCATION_MZONE,0,1,1,nil,cm.lvfun,e)
-end
-function cm.lvfun(g,e)
-	local tp=e:GetHandlerPlayer()
-	local c,tc=e:GetHandler(),g:GetFirst()
-	rshint.Select(tp,HINGMSG_LVRANK)
-	local lv=Duel.AnnounceLevel(tp,1,8)
-	local clv=tc:GetLevel()
-	local op=rsop.SelectOption(tp,true,{m,2},clv>lv,{m,3})
-	local lv2=op==1 and lv or -lv
-	rscf.QuickBuff({c,tc},"lv+",lv2)
-	return true
-end
-function cm.cfilter(c,e)
-	return c:IsAbleToRemoveAsCost() and c:IsAttribute(ATTRIBUTE_DARK)
-end 
-function cm.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsAbleToRemoveAsCost() and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,c) end
-	rshint.Select(tp,"rm")
-	local rg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,c)
-	rg:AddCard(c)
-	Duel.Remove(rg,POS_FACEUP,REASON_COST)
-end
-function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local ct=Duel.GetFieldGroupCount(tp,LOCATION_GRAVE,0)
-	local dct=ct==0 and 3 or 1
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,dct) end
+	--Effect 1
+	local e02=Effect.CreateEffect(c)  
+	e02:SetCategory(CATEGORY_DRAW)
+	e02:SetType(EFFECT_TYPE_IGNITION)
+	e02:SetRange(LOCATION_HAND)
+	e02:SetCountLimit(1,m)
+	e02:SetCost(cm.cost)
+	e02:SetTarget(cm.tg)
+	e02:SetOperation(cm.op)
+	c:RegisterEffect(e02)  
+	--Effect 2 
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_REMOVE)
+	e3:SetTarget(cm.lvtg)
+	e3:SetOperation(cm.lvop)
+	c:RegisterEffect(e3) 
+end
+--Effect 1
+function cm.cf(c)
+	return c:IsAbleToRemove() and c:IsAttribute(ATTRIBUTE_DARK)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ec=e:GetHandler()
+	if chk==0 then return ec:IsAbleToRemove() and Duel.IsExistingMatchingCard(cm.cf,tp,LOCATION_HAND,0,1,ec) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,cm.cf,tp,LOCATION_HAND,0,1,1,ec)
+	g:AddCard(ec) 
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ckg=Duel.GetMatchingGroup(nil,tp,LOCATION_GRAVE,0,nil)
+	if #ckg>0 then
+		if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
 		Duel.SetTargetPlayer(tp)
 		Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,dct)
-	if ct==0 then
-		e:SetLabel(100)
+		Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
 	else
-		e:SetLabel(0)
+		if chk==0 then return Duel.IsPlayerCanDraw(tp,3) end
+		Duel.SetTargetPlayer(tp)
+		Duel.SetTargetParam(3)
+		Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,3)
 	end
 end
-function cm.drop(e,tp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	if Duel.Draw(p,d,REASON_EFFECT)>0 and e:GetLabel()==100 then
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local pc,ct=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Draw(pc,1,REASON_EFFECT)
+	if ct==3 then
 		Duel.BreakEffect()
-		Duel.Draw(p,2,REASON_EFFECT)
+		Duel.Draw(pc,2,REASON_EFFECT)
+		Duel.ShuffleHand(pc)
+	end
+end
+--Effect 2
+function cm.lf(c)
+	return c:IsFaceup() and c:IsLevelAbove(1)
+end
+function cm.lvtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(cm.lf,tp,LOCATION_MZONE,0,nil)
+	if chk==0 then return #g>0 end
+end
+function cm.lvop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(cm.lf,tp,LOCATION_MZONE,0,nil)
+	if #g==0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local tag=g:Select(tp,1,1,nil)
+	if #tag==0 then return end
+	Duel.HintSelection(tag)
+	local tc=tag:GetFirst()
+	local lv=tc:GetLevel()
+	Duel.Hint(HINT_SELECTMSG,tp,HINGMSG_LVRANK)
+	local cct=Duel.AnnounceLevel(tp,1,8)
+	local ct=cct	
+	local opt=0
+	if cct>=lv then
+		opt=Duel.SelectOption(tp,aux.Stringid(m,1))
+	else
+		opt=Duel.SelectOption(tp,aux.Stringid(m,1),aux.Stringid(m,2))
+	end
+	if opt==1 then
+		ct=-cct
 	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_LEVEL)
+	e1:SetValue(ct)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	tc:RegisterEffect(e1)
 end
\ No newline at end of file

expansions/script/c60002302.lua

+--辉神谕令
+local m=60002302
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--negate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetRange(LOCATION_DECK)
+	e1:SetCountLimit(1,m)
+	e1:SetCondition(cm.con)
+	e1:SetCost(cm.cost)
+	e1:SetOperation(cm.op0)
+	c:RegisterEffect(e1)
+	--negate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_SPSUMMON)
+	e1:SetRange(LOCATION_DECK)
+	e1:SetCountLimit(1,m)
+	e1:SetCondition(cm.con)
+	e1:SetCost(cm.cost)
+	e1:SetOperation(cm.op0)
+	c:RegisterEffect(e1)
+	--negate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_SUMMON)
+	e1:SetRange(LOCATION_DECK)
+	e1:SetCountLimit(1,m)
+	e1:SetCondition(cm.con)
+	e1:SetCost(cm.cost)
+	e1:SetOperation(cm.op0)
+	c:RegisterEffect(e1)
+end
+function cm.cpfilter(c)
+	return (c:IsType(TYPE_TRAP) or c:IsType(TYPE_SPELL)) 
+		and c:CheckActivateEffect(false,false,false)~=nil
+end
+function cm.con(e,c)
+	if c==nil then return true end
+	return Duel.IsExistingMatchingCard(cm.cpfilter,tp,LOCATION_DECK,0,1,nil)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	Duel.SendtoGrave(c,REASON_COST)
+end
+function cm.op0(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetFlagEffect(tp,m)==0 then
+		Duel.SendtoGrave(c,REASON_COST)
+		local g1=Duel.GetMatchingGroup(cm.cpfilter,tp,LOCATION_DECK,0,nil)
+		local gm1=g1:Select(tp,1,1,nil)
+		local e11=gm1:GetFirst():GetActivateEffect()
+		Duel.Activate(e11)
+	end
+	if Duel.GetFlagEffect(tp,m)~=0 then
+		Duel.Win(1-tp,WIN_REASON_DRAW_OF_FATE)
+	else
+		Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+	end
+end

expansions/script/c98920193.lua

@@ -14,6 +14,9 @@ function c98920193.initial_effect(c)
 	local e3=e1:Clone()
 	e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
 	c:RegisterEffect(e3)
+	local e7=e1:Clone()
+	e7:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e7)
 	--atk/def
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE)

expansions/script/c98920358.lua

+--还零龙 入魔乌洛波洛斯
+local s,id,o=GetID()
+function c98920358.initial_effect(c)
+	  --xyz summon
+	aux.AddXyzProcedure(c,nil,5,2,c98920358.ovfilter,aux.Stringid(98920358,0))
+	c:EnableReviveLimit()
+	 --spsummon success
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_DISABLE+CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.descon)
+	e1:SetTarget(s.target)
+	e1:SetOperation(s.operation)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_MATERIAL_CHECK)
+	e2:SetValue(s.valcheck)
+	e2:SetLabelObject(e1)
+	c:RegisterEffect(e2)
+	--remove
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(98920358,0))
+	e3:SetCategory(CATEGORY_REMOVE)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetCost(c98920358.rmcost)
+	e3:SetTarget(c98920358.rmtg)
+	e3:SetOperation(c98920358.rmop)
+	c:RegisterEffect(e3)
+end
+function c98920358.ovfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0xa) and c:IsType(TYPE_XYZ) and not c:IsCode(98920358)
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,nil) end
+	local g=Duel.GetMatchingGroup(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,g:GetCount(),0,0)
+end
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) or c:IsAttack(3350) then return end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
+	e1:SetValue(3350)
+	c:RegisterEffect(e1)
+	local g=Duel.GetMatchingGroup(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,nil)
+	if #g==0 then return end
+	for tc in aux.Next(g) do
+		Duel.NegateRelatedChain(tc,RESET_TURN_SET)
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_DISABLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_DISABLE_EFFECT)
+		e2:SetValue(RESET_TURN_SET)
+		tc:RegisterEffect(e2)
+	end
+	Duel.AdjustInstantly(c)
+end
+function s.descon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ) and e:GetLabel()==1
+end
+function s.valcheck(e,c)
+	local g=c:GetMaterial()
+	if g:IsExists(Card.IsSetCard,1,nil,0xa) then
+		e:GetLabelObject():SetLabel(1)
+	else
+		e:GetLabelObject():SetLabel(0)
+	end
+end
+function c98920358.rmcost(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 c98920358.rmfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
+end
+function c98920358.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c98920358.rmfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c98920358.rmfilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectTarget(tp,c98920358.rmfilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,1,nil)
+	if g:GetFirst():IsLocation(LOCATION_GRAVE) then
+		Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,1-tp,LOCATION_GRAVE)
+	else
+		Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
+	end
+end
+function c98920358.rmop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c98920594.lua

+--抒情歌鸲-欢悦音乐鸫
+function c98920594.initial_effect(c)
+	c:EnableReviveLimit()
+	aux.AddXyzProcedure(c,nil,1,2,nil,nil,99)
+	--ATK Up
+	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(c98920594.atkval)
+	c:RegisterEffect(e1)
+	--negate activate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(98920594,0))
+	e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetCondition(c98920594.negcon)
+	e2:SetCost(c98920594.negcost)
+	e2:SetTarget(c98920594.negtg)
+	e2:SetOperation(c98920594.negop)
+	c:RegisterEffect(e2)
+	 --material
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(98920594,1))
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1)
+	e4:SetCost(c98920594.cost)
+	e4:SetTarget(c98920594.mttg)
+	e4:SetOperation(c98920594.mtop)
+	c:RegisterEffect(e4)
+end
+function c98920594.atkval(e,c)
+	return c:GetOverlayCount()*500
+end
+function c98920594.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 c98920594.mtfilter(c,e)
+	return c:IsRace(RACE_WINDBEAST) and c:IsCanOverlay()
+end
+function c98920594.mttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsType(TYPE_XYZ)
+		and Duel.IsExistingMatchingCard(c98920594.mtfilter,tp,LOCATION_DECK,0,2,nil) end
+end
+function c98920594.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+	local g=Duel.SelectMatchingCard(tp,c98920594.mtfilter,tp,LOCATION_DECK,0,2,2,nil,e)
+	if g:GetCount()>0 then
+		Duel.Overlay(c,g)
+	end
+end
+function c98920594.negcon(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp
+		and re:IsActiveType(TYPE_TRAP+TYPE_SPELL) and Duel.IsChainDisablable(ev) and e:GetHandler():GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0xf7)
+end
+function c98920594.negcost(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 c98920594.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,re:GetHandler(),1,0,0)
+end
+function c98920594.negop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c98940026.lua

+--珠泪哀歌族·罗蕾莱人鱼
+function c98940026.initial_effect(c)
+	 --link summon
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_AQUA),2,2)
+	 --tograve
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98940026,0))
+	e1:SetCategory(CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,98940026)
+	e1:SetTarget(c98940026.tgtg)
+	e1:SetOperation(c98940026.tgop)
+	c:RegisterEffect(e1)
+	--disable
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_DISABLE)
+	e2:SetTargetRange(0,LOCATION_MZONE)
+	e2:SetTarget(c98940026.distg)
+	c:RegisterEffect(e2)
+	--discard deck
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(98940026,2))
+	e3:SetCategory(CATEGORY_DECKDES)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCountLimit(1,98941026)
+	e3:SetCondition(c98940026.discon)
+	e3:SetTarget(c98940026.distg1)
+	e3:SetOperation(c98940026.disop)
+	c:RegisterEffect(e3)
+end
+function c98940026.tgfilter(c)
+	return c:IsSetCard(0x181) and c:IsAbleToGrave()
+end
+function c98940026.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c98940026.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c98940026.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c98940026.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end
+function c98940026.distg(e,c)
+	local g=e:GetHandler():GetLinkedGroup():Filter(c98940026.ffilter,nil)
+	local atk=g:GetSum(Card.GetBaseAttack)
+	return c:IsAttackBelow(atk) and c:IsFaceup()
+end
+function c98940026.ffilter(c)
+	return c:IsType(TYPE_FUSION) and c:IsFaceup()
+end
+function c98940026.discon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsReason(REASON_EFFECT)
+end
+function c98940026.distg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(3)
+	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,3)
+end
+function c98940026.disop(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.DiscardDeck(p,d,REASON_EFFECT)
+end
\ No newline at end of file