毁灭吧

expansions/lflist.conf

@@ -54,6 +54,7 @@
 01300901 0 --栖夜莉丝
 01300910 0 --露比
 #042
+04202048 1 --堕天计划
 04204005 2 --杜野凛世红叶印象
 04204007 1 --杜野凛世水色琉璃
 04204014 0 --杜野凛世白翼青空

expansions/script/c4202048.lua

+--堕天计划
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+	c:EnableReviveLimit()
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetValue(function(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA) end)
+	c:RegisterEffect(e0)
+	--spsummon proc
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_EXTRA)
+	e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk,c)
+		local sg=cm.pickup
+		if sg then
+			sg:KeepAlive()
+			e:SetLabelObject(sg)
+			cm.pickup=nil
+			return true	else return false 
+		end
+	end)
+	e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+		local sg = e:GetLabelObject()
+		if sg then
+			c:SetMaterial(sg)
+			Duel.Remove(sg,POS_FACEDOWN,REASON_SPSUMMON)
+		end
+	end)
+	e1:SetValue(SUMMON_VALUE_SELF)
+	c:RegisterEffect(e1)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_TO_HAND)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
+		return eg:IsExists(function(c,tp) return c:IsControler(tp) end,1,nil,1-c:GetOwner())
+	end)
+	e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+		if Duel.SelectYesNo(c:GetOwner(),aux.Stringid(m,0)) then
+			cm.pickup = eg:Filter(Card.IsAbleToRemove,nil)		
+			Duel.SpecialSummonRule(c:GetOwner(),e:GetHandler())
+		end
+	end)
+	Duel.RegisterEffect(e3,0)
+	--spsummon cost
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetCode(EFFECT_SPSUMMON_COST)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE)
+	e5:SetRange(0xff)
+	e5:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+		local ctp = e:GetHandlerPlayer()
+		local g=Duel.GetFieldGroup(ctp,0,LOCATION_EXTRA):Filter(Card.IsAbleToRemoveAsCost,nil)
+		Duel.Remove(g,POS_FACEDOWN,REASON_ACTION)
+	end)
+	c:RegisterEffect(e5)
+end
\ No newline at end of file