得得得得得

expansions/script/c77700341.lua

@@ -14,44 +14,41 @@ function cm.initial_effect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetCountLimit(1,m)
-	e1:SetCost(cm.cost)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
+	e1:SetCost(cm.spcost)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
 	c:RegisterEffect(e1)
 end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	e:SetLabel(100)
-	return true
+	if chk==0 then return true end
 end
-function cm.filter1(c,e,tp)
-	return c:IsFaceup() and c:IsReleasable()
-		and Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_DECK,0,1,nil,c:GetCode(),e,tp)
-		and Duel.GetMZoneCount(tp,c,tp)>0
+function cm.cfilter(c,e,tp)
+	return Duel.GetMZoneCount(tp,c)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetCode())
 end
-function cm.filter2(c,lv,e,tp)
-	return c:IsCode(lv) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+function cm.spfilter(c,e,tp,code)
+	return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		if e:GetLabel()~=100 then return false end
 		e:SetLabel(0)
-		return Duel.IsExistingMatchingCard(cm.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,e,tp)
+		return Duel.CheckReleaseGroup(tp,cm.cfilter,1,nil,e,tp)
 	end
+	e:SetLabel(0)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local rg=Duel.SelectMatchingCard(tp,cm.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,e,tp)
+	local rg=Duel.SelectReleaseGroup(tp,cm.cfilter,1,1,nil,e,tp)
 	e:SetLabel(rg:GetFirst():GetCode())
-	Duel.Release(rg,POS_FACEUP,REASON_COST)
+	Duel.Release(rg,REASON_COST)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
 end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetMZoneCount(tp)<=0 then return end
-	local lv=e:GetLabel()
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_DECK,0,1,1,nil,lv,e,tp)
-	local tc=g:GetFirst()
-	if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
-		cm.ReplaceEffectExtraCount(tc,3,code,0x1fe1000+RESET_PHASE+PHASE_END,1)
-		Duel.SpecialSummonComplete()
+	local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,e:GetLabel())
+	if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 then
+		cm.ReplaceEffectExtraCount(g:GetFirst(),3,code,0x1fe1000+RESET_PHASE+PHASE_END,1)
 	end
 end
 function cm.ReplaceEffectExtraCount(c,ctlm,code,res,resct)