hole

deck/2021-03-29 8th.ydk

@@ -9,6 +9,7 @@
 72412210
 75646560
 81008098
+81011089
 81013066
 81013085
 81013086
@@ -42,6 +43,7 @@
 81005088
 81005089
 81005090
+81009024
 81011037
 81013083
 81013084

expansions/script/c81009024.lua

---风纪委员·冴岛清美
+--雨之祝福·三峰结华
 function c81009024.initial_effect(c)
-	--negate
+	--link summon
+	aux.AddLinkProcedure(c,c81009024.matfilter,2,2,c81009024.lcheck)
+	c:EnableReviveLimit()
+	--lv
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DISABLE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_CHAINING)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,81009024)
-	e1:SetCondition(c81009024.discon)
-	e1:SetCost(c81009024.discost)
-	e1:SetTarget(c81009024.distg)
-	e1:SetOperation(c81009024.disop)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetHintTiming(TIMINGS_CHECK_MONSTER)
+	e1:SetTarget(c81009024.target)
+	e1:SetOperation(c81009024.operation)
 	c:RegisterEffect(e1)
+	--level
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_UPDATE_LEVEL)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e2:SetTarget(aux.TargetBoolFunction(Card.IsLevelAbove,2))
+	e2:SetValue(-1)
+	c:RegisterEffect(e2)
 end
-function c81009024.discon(e,tp,eg,ep,ev,re,r,rp)
-	local ex1,g1,gc1,dp1,dv1=Duel.GetOperationInfo(ev,CATEGORY_TOHAND)
-	local ex2,g2,gc2,dp2,dv2=Duel.GetOperationInfo(ev,CATEGORY_TODECK)
-	local ex3,g3,gc3,dp3,dv3=Duel.GetOperationInfo(ev,CATEGORY_TOGRAVE)
-	local ex4,g4,gc4,dp4,dv4=Duel.GetOperationInfo(ev,CATEGORY_SPECIAL_SUMMON)
-	local ex5,g5,gc5,dp5,dv5=Duel.GetOperationInfo(ev,CATEGORY_REMOVE)
-	return ((ex1 and (bit.band(dv1,LOCATION_EXTRA)==LOCATION_EXTRA or g1 and g1:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA)))
-		or (ex2 and (bit.band(dv2,LOCATION_EXTRA)==LOCATION_EXTRA or g2 and g2:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA)))
-		or (ex3 and (bit.band(dv3,LOCATION_EXTRA)==LOCATION_EXTRA or g3 and g3:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA)))
-		or (ex4 and (bit.band(dv4,LOCATION_EXTRA)==LOCATION_EXTRA or g4 and g4:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA)))
-		or (ex5 and (bit.band(dv5,LOCATION_EXTRA)==LOCATION_EXTRA or g5 and g5:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA))))
-		and Duel.IsChainNegatable(ev)
+function c81009024.matfilter(c)
+	return c:IsLevelAbove(1)
 end
-function c81009024.discost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsDiscardable() end
-	Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+function c81009024.lcheck(g,lc)
+	return g:GetClassCount(Card.GetLevel)==g:GetCount()
+end
+function c81009024.filter(c)
+	return c:IsFaceup() and c:IsLevelAbove(2)
 end
-function c81009024.distg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+function c81009024.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c81009024.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c81009024.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c81009024.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
 end
-function c81009024.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.NegateActivation(ev) then
-		if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then
-			Duel.SendtoGrave(eg,REASON_EFFECT)
-		end
+function c81009024.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_LEVEL)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(-1)
+		tc:RegisterEffect(e1)
 	end
 end

expansions/script/c81011089.lua

+--风纪委员·冴岛清美
+function c81011089.initial_effect(c)
+	--special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_SPSUMMON_PROC)
+	e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e0:SetRange(LOCATION_HAND)
+	e0:SetCondition(c81011089.spcon)
+	c:RegisterEffect(e0)
+	--negate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DISABLE)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
+	e1:SetCountLimit(1,81011089)
+	e1:SetCondition(c81011089.discon)
+	e1:SetCost(c81011089.discost)
+	e1:SetTarget(c81011089.distg)
+	e1:SetOperation(c81011089.disop)
+	c:RegisterEffect(e1)
+end
+function c81011089.spcon(e,c)
+	if c==nil then return true end
+	return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0
+		and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0
+		and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+end
+function c81011089.discon(e,tp,eg,ep,ev,re,r,rp)
+	local ex1,g1,gc1,dp1,dv1=Duel.GetOperationInfo(ev,CATEGORY_TOHAND)
+	local ex2,g2,gc2,dp2,dv2=Duel.GetOperationInfo(ev,CATEGORY_TODECK)
+	local ex3,g3,gc3,dp3,dv3=Duel.GetOperationInfo(ev,CATEGORY_TOGRAVE)
+	local ex4,g4,gc4,dp4,dv4=Duel.GetOperationInfo(ev,CATEGORY_SPECIAL_SUMMON)
+	local ex5,g5,gc5,dp5,dv5=Duel.GetOperationInfo(ev,CATEGORY_REMOVE)
+	return ((ex1 and (bit.band(dv1,LOCATION_EXTRA)==LOCATION_EXTRA or g1 and g1:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA)))
+		or (ex2 and (bit.band(dv2,LOCATION_EXTRA)==LOCATION_EXTRA or g2 and g2:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA)))
+		or (ex3 and (bit.band(dv3,LOCATION_EXTRA)==LOCATION_EXTRA or g3 and g3:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA)))
+		or (ex4 and (bit.band(dv4,LOCATION_EXTRA)==LOCATION_EXTRA or g4 and g4:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA)))
+		or (ex5 and (bit.band(dv5,LOCATION_EXTRA)==LOCATION_EXTRA or g5 and g5:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA))))
+		and Duel.IsChainNegatable(ev)
+end
+function c81011089.discost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() end
+	Duel.Release(e:GetHandler(),REASON_COST)
+end
+function c81011089.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+end
+function c81011089.disop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) then
+		if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then
+			Duel.SendtoGrave(eg,REASON_EFFECT)
+		end
+	end
+end