0602 WD

expansions/script/c111443942.lua

@@ -90,6 +90,9 @@ function c111443942.disop(e,tp,eg,ep,ev,re,r,rp)
     end
 end
 
+function c111443942.sdfilter(c)
+    return not c:IsOriginalCodeRule(23912837)
+end
 function c111443942.sdop(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler():GetOwner()
     local g=Duel.GetMatchingGroup(c111443942.filter,c,LOCATION_DECK,LOCATION_DECK,nil)
@@ -98,13 +101,15 @@ function c111443942.sdop(e,tp,eg,ep,ev,re,r,rp)
         if tc:GetFlagEffect(111443942)==0 then
             local code=tc:GetOriginalCode()
             local ae=tc:GetActivateEffect()
+            local oath=0
+            if c111443942.sdfilter(tc) then oath=EFFECT_COUNT_CODE_OATH end
             local e1=Effect.CreateEffect(tc)
             e1:SetType(EFFECT_TYPE_ACTIVATE)
             e1:SetCode(ae:GetCode())
             e1:SetCategory(ae:GetCategory())
             e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+ae:GetProperty())
             e1:SetRange(LOCATION_DECK)
-            e1:SetCountLimit(1,code+EFFECT_COUNT_CODE_OATH)
+            e1:SetCountLimit(1,code+oath)
             e1:SetCondition(c111443942.sfcon)
             e1:SetTarget(c111443942.sftg)
             e1:SetOperation(c111443942.sfop)

expansions/script/c114303426.lua

@@ -126,3 +126,12 @@ function c114303426.operation2(e,tp,eg,ep,ev,re,r,rp)
     Duel.ConfirmCards(1-tp,Duel.GetFieldGroup(tp,LOCATION_EXTRA,0))
     c114303426.operation(e,tp,eg,ep,ev,re,r,rp)
 end
+
+local re=Duel.RegisterEffect
+Duel.RegisterEffect=function(e,tp)
+    if e:GetOwner():IsOriginalCodeRule(51194046) and e:GetCode()==EFFECT_MATERIAL_CHECK 
+    then
+        e:SetTargetRange(LOCATION_HAND+LOCATION_DECK,LOCATION_HAND+LOCATION_DECK)
+    end
+    return re(e,tp)
+end

expansions/script/c117179181.lua

@@ -40,6 +40,7 @@ function c117179181.initial_effect(c)
     --monster effect
     --activate from hand
     local e4=Effect.CreateEffect(c)
+    e4:SetDescription(aux.Stringid(117179181,4))
     e4:SetType(EFFECT_TYPE_FIELD)
     e4:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
     e4:SetRange(LOCATION_MZONE)

expansions/script/c151194046.lua

+--クリフォート・アセンブラ
+function c151194046.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--splimit
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+	e2:SetRange(LOCATION_PZONE)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(c151194046.splimit)
+	c:RegisterEffect(e2)
+	--draw
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(151194046,0))
+	e3:SetCategory(CATEGORY_DRAW)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_PHASE+PHASE_END)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetRange(LOCATION_PZONE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c151194046.drcon)
+	e3:SetTarget(c151194046.drtg)
+	e3:SetOperation(c151194046.drop)
+	c:RegisterEffect(e3)
+	if not c151194046.global_check then
+		c151194046.global_check=true
+		c151194046[0]=0
+		c151194046[1]=0
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_SUMMON_SUCCESS)
+		ge1:SetOperation(c151194046.checkop)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		ge2:SetCode(EVENT_MSET)
+		Duel.RegisterEffect(ge2,0)
+		local ge3=Effect.CreateEffect(c)
+		ge3:SetType(EFFECT_TYPE_FIELD)
+		ge3:SetCode(EFFECT_MATERIAL_CHECK)
+		ge3:SetTargetRange(LOCATION_HAND+LOCATION_DECK,LOCATION_HAND+LOCATION_DECK)
+		ge3:SetValue(c151194046.valcheck)
+		Duel.RegisterEffect(ge3,0)
+		ge1:SetLabelObject(ge3)
+		ge2:SetLabelObject(ge3)
+		local ge4=Effect.CreateEffect(c)
+		ge4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge4:SetCode(EVENT_PHASE_START+PHASE_DRAW)
+		ge4:SetOperation(c151194046.clearop)
+		Duel.RegisterEffect(ge4,0)
+	end
+end
+function c151194046.splimit(e,c)
+	return not c:IsSetCard(0xaa)
+end
+function c151194046.checkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	if tc:IsSummonType(SUMMON_TYPE_ADVANCE) then
+		local p=tc:GetSummonPlayer()
+		c151194046[p]=c151194046[p]+e:GetLabelObject():GetLabel()
+	end
+end
+function c151194046.valcheck(e,c)
+	local ct=c:GetMaterial():FilterCount(Card.IsSetCard,nil,0xaa)
+	e:SetLabel(ct)
+end
+function c151194046.clearop(e,tp,eg,ep,ev,re,r,rp)
+	c151194046[0]=0
+	c151194046[1]=0
+end
+function c151194046.drcon(e,tp,eg,ep,ev,re,r,rp)
+	return c151194046[tp]>0
+end
+function c151194046.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,c151194046[tp]) end
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,c151194046[tp])
+end
+function c151194046.drop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	Duel.Draw(tp,c151194046[tp],REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c60000056.lua

-if not pcall(function() require("expansions/script/c60002290") end) then require("script/c60002290") end
-local cm,m=lanp.U("设置卡","黄昏+黄昏骑士","旭日与黄昏同在")
+local cm,m,o=GetID()
 function cm.initial_effect(c)
 	--Effect 1
 	local e0=Effect.CreateEffect(c)
@@ -46,7 +45,7 @@ function cm.initial_effect(c)
 end
 --Effect 1
 function cm.cfilter(c)
-	return lanc.IsSeries(c,"黄昏") and c:IsFaceup()
+	return c:IsSetCard(0x626) or c:IsFacedown()
 end
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
 	if not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) then return false end
@@ -71,16 +70,16 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 end
 --Effect 2
 function cm.togfilter(c)
-	return lanc.IsSeries(c,"黄昏骑士") and c:IsAbleToGrave()
+	return c:IsSetCard(0x3626) and c:IsAbleToGrave()
 end
 function cm.con(e,tp,eg,ep,ev,re,r,rp)
 	return  Duel.IsExistingMatchingCard(cm.togfilter,tp,LOCATION_DECK,0,1,nil)
-	and not e:GetHandler():IsAttack(2500)
+	and not e:GetHandler():IsAttack(2000)
 end
 function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if Duel.IsExistingMatchingCard(cm.togfilter,tp,LOCATION_DECK,0,1,nil)
-		and not c:IsAttack(2500) 
+		and not c:IsAttack(2000) 
 		and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
 		Duel.Hint(HINT_CARD,0,m)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
@@ -91,7 +90,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 				e1:SetType(EFFECT_TYPE_SINGLE)
 				e1:SetCode(EFFECT_SET_ATTACK_FINAL)
 				e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-				e1:SetValue(2500)
+				e1:SetValue(2000)
 				c:RegisterEffect(e1)
 			end
 		end
@@ -102,7 +101,7 @@ function cm.con1(e,tp,eg,ep,ev,re,r,rp)
 	return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)
 end
 function cm.spfilter(c,e,tp)
-	return c:IsType(TYPE_MONSTER) and lanc.IsSeries(c,"黄昏骑士") and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x3626) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function cm.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()

expansions/script/c60000057.lua

-if not pcall(function() require("expansions/script/c60002290") end) then require("script/c60002290") end
-local cm,m=lanp.U("设置卡","黄昏+黄昏骑士","昼夜与黄昏接续")
+local cm,m,o=GetID()
 function cm.initial_effect(c)
 	--Effect 1
 	local e0=Effect.CreateEffect(c)
@@ -35,7 +34,7 @@ function cm.initial_effect(c)
 end
 --Effect 1
 function cm.cfilter(c)
-	return lanc.IsSeries(c,"黄昏") and c:IsFaceup()
+	return c:IsSetCard(0x626) or c:IsFacedown()
 end
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
 	if not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) then return false end

expansions/script/c60000058.lua

-if not pcall(function() require("expansions/script/c60002290") end) then require("script/c60002290") end
-local cm,m=lanp.U("设置卡","黄昏+黄昏骑士","血腥与黄昏散去")
+local cm,m,o=GetID()
 function cm.initial_effect(c)
 	--Effect 1
 	local e0=Effect.CreateEffect(c)
@@ -38,7 +37,7 @@ function cm.initial_effect(c)
 end
 --Effect 1
 function cm.cfilter(c)
-	return lanc.IsSeries(c,"黄昏") and c:IsFaceup()
+	return c:IsSetCard(0x626) or c:IsFacedown()
 end
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
 	if not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) then return false end

expansions/script/c60000059.lua

-if not pcall(function() require("expansions/script/c60002290") end) then require("script/c60002290") end
-local cm,m=lanp.U("设置卡","黄昏+黄昏骑士","幽冥与黄昏游戈")
+local cm,m,o=GetID()
 function cm.initial_effect(c)
 	--Effect 1
 	local e0=Effect.CreateEffect(c)
@@ -38,7 +37,7 @@ function cm.initial_effect(c)
 end
 --Effect 1
 function cm.cfilter(c)
-	return lanc.IsSeries(c,"黄昏") and c:IsFaceup()
+	return c:IsSetCard(0x626) or c:IsFacedown()
 end
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
 	if not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) then return false end

expansions/script/c60000060.lua

-if not pcall(function() require("expansions/script/c60002290") end) then require("script/c60002290") end
-local cm,m=lanp.U("设置卡","黄昏+黄昏骑士","永夜与黄昏相伴")
+local cm,m,o=GetID()
 function cm.initial_effect(c)
 	c:SetSPSummonOnce(60000060)
 	--fusion material
 	c:EnableReviveLimit()
-	aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsSeries,"黄昏骑士"),5,true)
+	aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsSetCard,0x3626),5,true)
 	--special summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))
@@ -48,7 +47,7 @@ function cm.initial_effect(c)
 	end
 end
 function cm.check(c)
-	return c and lanc.IsSeries(c,"黄昏骑士")
+	return c and c:IsSetCard(0x3626)
 end
 function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
 	if cm.check(Duel.GetAttacker()) or cm.check(Duel.GetAttackTarget()) then
@@ -57,7 +56,7 @@ function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function cm.cfilter(c)
-	return lanc.IsSeries(c,"黄昏骑士") and c:IsAbleToGraveAsCost()
+	return c:IsSetCard(0x3626) and c:IsAbleToGraveAsCost()
 end
 function cm.fspcon(e,c)
 	if c==nil then return true end
@@ -75,7 +74,7 @@ function cm.incon(e)
 	return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_EXTRA,0)>=15
 end
 function cm.spfilter3(c,tp)
-	return c:IsFaceup() and c:IsControler(tp) and lanc.IsSeries(c,"黄昏骑士")
+	return c:IsFaceup() and c:IsControler(tp) and c:IsSetCard(0x3626)
 end
 function cm.descon(e,tp,eg,ep,ev,re,r,rp)
 	return eg:IsExists(cm.spfilter3,1,nil,tp)

expansions/script/c60000061.lua

-if not pcall(function() require("expansions/script/c60002290") end) then require("script/c60002290") end
-local cm,m=lanp.U("设置卡","黄昏+黄昏骑士","黎明与黄昏相依")
+local cm,m,o=GetID()
 function cm.initial_effect(c)
 	--pendulum summon
 	aux.EnablePendulumAttribute(c)
@@ -64,7 +63,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
 end
 function cm.cfilter(c)
-	return lanc.IsSeries(c,"黄昏") and c:IsFaceup()
+	return c:IsSetCard(0x626) or c:IsFacedown()
 end
 function cm.spcon1(e,tp,eg,ep,ev,re,r,rp)
 	if not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) then return false end
@@ -84,7 +83,7 @@ function cm.spop1(e,tp,eg,ep,ev,re,r,rp)
 end
 --Effect 2
 function cm.thfilter1(c)
-	return lanc.IsSeries(c,"黄昏骑士") and c:IsAbleToHand()
+	return c:IsSetCard(0x3626) and c:IsAbleToHand()
 end
 function cm.thtg1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter1,tp,LOCATION_DECK,0,1,nil) end
@@ -127,7 +126,7 @@ function cm.op1(e,tp,eg,ep,ev,re,r,rp)
 		if c:IsLocation(LOCATION_EXTRA) then
 			local e1=Effect.CreateEffect(e:GetHandler())
 			e1:SetType(EFFECT_TYPE_FIELD)
-			e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+			e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
 			e1:SetTargetRange(LOCATION_MZONE,0)
 			e1:SetTarget(cm.indtg)
 			e1:SetReset(RESET_PHASE+PHASE_END)

expansions/script/c60000062.lua

-if not pcall(function() require("expansions/script/c60002290") end) then require("script/c60002290") end
-local cm,m=lanp.U("设置卡","黄昏+黄昏骑士","黄昏之下")
+local cm,m,o=GetID()
 function cm.initial_effect(c)
 	--activate
 	local e0=Effect.CreateEffect(c)
@@ -30,7 +29,7 @@ function cm.handcon(e)
 end
 --Effect 1
 function cm.thfilter(c)
-	return lanc.IsSeries(c,"黄昏骑士") and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+	return c:IsSetCard(0x3626) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
 end
 function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler() 

expansions/script/c60000063.lua

-if not pcall(function() require("expansions/script/c60002290") end) then require("script/c60002290") end
-local cm,m=lanp.U("设置卡","黄昏+黄昏骑士","黄昏刹那")
+local cm,m,o=GetID()
 function cm.initial_effect(c)
 	--activate
 	local e0=Effect.CreateEffect(c)
@@ -30,7 +29,7 @@ function cm.handcon(e)
 end
 --Effect 1
 function cm.todeckfilter(c)
-	return lanc.IsSeries(c,"黄昏骑士") and c:IsAbleToDeck()
+	return c:IsSetCard(0x3626) and c:IsAbleToDeck()
 end
 function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.todeckfilter,tp,LOCATION_GRAVE,0,3,nil) and e:GetHandler():GetFlagEffect(m)==0 and Duel.IsPlayerCanDraw(tp,1) end