fix and delete 6

expansions/script/c33701009.lua

@@ -5,7 +5,8 @@ local cm=_G["c"..m]
 function cm.initial_effect(c)
 	rscf.SetSummonCondition(c)
 	aux.AddXyzProcedureLevelFree(c,cm.mfilter,aux.TRUE,40,40)  
-	local e1=rsef.I(c,{m,0},{1,m,2},"sp",nil,LOCATION_EXTRA+LOCATION_GRAVE,nil,rscost.lpcost(true),cm.sptg,cm.spop)
+	local e0=rsef.I(c,{m,0},{1,m,2},"sp",nil,LOCATION_EXTRA,nil,rscost.lpcost(true),cm.sptg,cm.spop)
+	local e1=rsef.I(c,{m,0},{1,m,2},"sp",nil,LOCATION_GRAVE,nil,rscost.lpcost(true),cm.sptg,cm.spop)
 	local e3=rsef.SV_ADD(c,"att",cm.attfilter)
 	local e5=rsef.SV_INDESTRUCTABLE(c,"battle",1,cm.con(ATTRIBUTE_LIGHT))
 	local e8=rsef.I(c,{m,2},1,"th","tg",LOCATION_MZONE,cm.con(ATTRIBUTE_WATER),nil,rstg.target({Card.IsAbleToHand,"th",LOCATION_ONFIELD,0,1,1,c}),cm.thop)
@@ -77,7 +78,7 @@ function cm.rfilter(c,e,tp)
 end
 function cm.rtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local og=e:GetLabelObject():GetLabelObject()
-	if chk==0 then return og:IsExists(cm.rfilter,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
+	if chk==0 then return og and og:IsExists(cm.rfilter,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
 	Duel.SetTargetCard(og)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_GRAVE)
 end

expansions/script/c47530009.lua

@@ -107,6 +107,6 @@ function c47530009.lsop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.SelectMatchingCard(tp,c47530009.spfilter,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil,e,tp)
 	if g:GetCount()>0 then
 		Duel.SpecialSummon(g,SUMMON_TYPE_LINK,tp,tp,true,false,POS_FACEUP)
-		g:CompleteProcedure()
+		g:GetFirst():CompleteProcedure()
 	end
 end
\ No newline at end of file

expansions/script/c47570004.lua

---死亡之翼
-function c47570004.initial_effect(c)
-    c:EnableReviveLimit()
-    --pendulum summon
-    aux.EnablePendulumAttribute(c)
-    --activate
-    local e1=Effect.CreateEffect(c)
-    e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
-    e1:SetType(EFFECT_TYPE_ACTIVATE)
-    e1:SetCode(EVENT_FREE_CHAIN)
-    e1:SetCondition(c47570004.condition)
-    e1:SetTarget(c47570004.target)
-    e1:SetOperation(c47570004.operation)
-    c:RegisterEffect(e1)   
-    --cataclysm
-    local e2=Effect.CreateEffect(c)
-    e2:SetCategory(CATEGORY_DESTROY)
-    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-    e2:SetProperty(EFFECT_FLAG_DELAY)
-    e2:SetCountLimit(1,47570005)
-    e2:SetCondition(c47570004.ctmcon)
-    e2:SetTarget(c47570004.ctmtg)
-    e2:SetOperation(c47570004.ctmop)
-    c:RegisterEffect(e2)
-end
-function c47570004.condition(e,tp,eg,ep,ev,re,r,rp)
-    return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,0,2,nil)
-end
-function c47570004.target(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,0,1,nil) end
-    local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,0,nil)
-    Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
-    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,nil)
-end
-function c47570004.activate(e,tp,eg,ep,ev,re,r,rp)
-    if not e:GetHandler():IsRelateToEffect(e) then return end
-    local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,0,nil)
-    if Duel.Destroy(sg,REASON_EFFECT)~=0 then
-        Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,false,POS_FACEUP)
-    end
-end
-function c47570004.ctmcon(e,tp,eg,ep,ev,re,r,rp)
-    return e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL)
-end
-function c47570004.ctmtg(e,tp,eg,ep,ev,re,r,rp,chk)
-    local c=e:GetHandler()
-    local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,0,aux.ExceptThisCard(e))
-    if chk==0 then return g:GetCount()>0 end
-    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
-end
-function c47570004.ctmop(e,tp,eg,ep,ev,re,r,rp)
-    local c=e:GetHandler()
-    local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
-    if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT)~=0 then
-        Duel.BreakEffect()
-        Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(47570004,0))
-        if e:GetLabel()==1 then Duel.RegisterFlagEffect(tp,47570004,RESET_CHAIN,0,1) end
-        local tc=Duel.SelectMatchingCard(tp,c47570004.filter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
-        Duel.ResetFlagEffect(tp,47570004)
-        if tc then
-            local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
-            if fc then
-                Duel.SendtoGrave(fc,REASON_RULE)
-                Duel.BreakEffect()
-            end
-            Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-            local te=tc:GetActivateEffect()
-            te:UseCountLimit(tp,1,true)
-            local tep=tc:GetControler()
-            local cost=te:GetCost()
-            if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
-            Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
-        end        
-    end
-end
\ No newline at end of file