Update "Rainbow Blessing (DM)"

-Should only allow 1 monster to attack directly

Author: TheRazgriz

unofficial/c511000690.lua

@@ -1,16 +1,16 @@
---虹色の祝福
+--虹色の祝福 (DM)
 --Rainbow Blessing (DM)
 local s,id=GetID()
 function s.initial_effect(c)
 	aux.AddEquipProcedure(c,nil,aux.FilterBoolFunction(Card.IsCode,CARD_KURIBOH))
-	--Direct
+	--You can Tribute the equipped monster; 1 monster you control can attack your opponent directly this turn.
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_SZONE)
 	e2:SetCountLimit(1)
 	e2:SetCost(s.cost)
-	e2:SetTarget(s.dirtar)
-	e2:SetOperation(s.diract)
+	e2:SetTarget(s.diratktg)
+	e2:SetOperation(s.diratkop)
 	c:RegisterEffect(e2)
 end
 s.listed_names={CARD_KURIBOH}
@@ -19,18 +19,18 @@ function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return eq:IsReleasable() end
 	Duel.Release(eq,REASON_COST)
 end
-function s.dirtar(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+function s.diratktg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_MZONE,0,1,nil) end
 end
-function s.diract(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(nil,tp,LOCATION_MZONE,0,nil)
-	local tc=g:GetFirst()
-	while tc do
-		local e1=Effect.CreateEffect(e:GetHandler())
+function s.diratkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_APPLYTO)
+	local tc=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil):GetFirst()
+	if tc then
+		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_DIRECT_ATTACK)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		e1:SetReset(RESETS_STANDARD_PHASE_END)
 		tc:RegisterEffect(e1)
-		tc=g:GetNext()
 	end
-end
+end