---------------------------------------
-------- RED-EYES NECRO DRAGON --------
---------------------------------------
function c58391973.initial_effect(c)
   c:EnableReviveLimit()

   -- Cannot be Special Summoned at all, except by its own effect
   ----------------------------------------------------------------
   local e1=Effect.CreateEffect(c)
   e1:SetType(EFFECT_TYPE_SINGLE)
   e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
   e1:SetCode(EFFECT_SPSUMMON_CONDITION)
   c:RegisterEffect(e1)

   -- Creates its own Special Summon procedure, requiring "Red-Eyes Z. Dragon" and 1 Zombie monster
   --------------------------------------------------------------------------------------------------
   local e2=Effect.CreateEffect(c)
   e2:SetDescription(aux.Stringid(58391973,3))
   e2:SetType(EFFECT_TYPE_FIELD)
   e2:SetCode(EFFECT_SPSUMMON_PROC)
   e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
   e2:SetRange(LOCATION_HAND)
   e2:SetCondition(c58391973.spcon)
   e2:SetOperation(c58391973.spop)
   c:RegisterEffect(e2)

   -- "Zombie World" cannot be destroyed by card effects
   -------------------------------------------------------
   local e3=Effect.CreateEffect(c)
   e3:SetType(EFFECT_TYPE_FIELD)
   e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
   e3:SetRange(LOCATION_MZONE)
   e3:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
   e3:SetTarget(aux.TargetBoolFunction(Card.IsCode,04064256))
   e3:SetValue(1)
   c:RegisterEffect(e3)

   -- No player can activate Field Spell Cards
   ---------------------------------------------
   local e4=Effect.CreateEffect(c)
   e4:SetType(EFFECT_TYPE_FIELD)   
   e4:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_PLAYER_TARGET)
   e4:SetCode(EFFECT_CANNOT_ACTIVATE)
   e4:SetRange(LOCATION_MZONE)
   e4:SetTargetRange(1,1)
   e4:SetValue(c58391973.aclimit)
   c:RegisterEffect(e4)

   -- Special Summon any monsters killed by it
   ----------------------------------------------
   local e5=Effect.CreateEffect(c)
   e5:SetDescription(aux.Stringid(5186893,1))
   e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
   e5:SetCode(EVENT_BATTLE_DESTROYING)
   e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
   e5:SetCondition(c58391973.kcon)
   e5:SetTarget(c58391973.ktg)
   e5:SetOperation(c58391973.kop)
   c:RegisterEffect(e5)
end
------------------------------------------------------------------------------------------------------------------------------------
function c58391973.specfil(c,code)
   return c:GetCode()==code
end
function c58391973.zombfil(c,code)
   return c:GetRace()==RACE_ZOMBIE and c:GetCode()~=code
end

function c58391973.spcon(e,tp,eg,ep,ev,re,r,rp)
   local dp=Duel.GetTurnPlayer()
   return Duel.IsExistingMatchingCard(c58391973.specfil,dp,LOCATION_MZONE,0,1,nil,05186893)
      and Duel.IsExistingMatchingCard(c58391973.specfil,dp,LOCATION_SZONE,0,1,nil,04064256)
      and Duel.IsExistingMatchingCard(c58391973.zombfil,dp,LOCATION_MZONE,0,1,nil,05186893)
end
function c58391973.spop(e,tp,eg,ep,ev,re,r,rp,c)
   local dp=Duel.GetTurnPlayer()
   Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
   local g1=Duel.SelectMatchingCard(dp,c58391973.specfil,dp,LOCATION_MZONE,0,1,1,nil,05186893)
   Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
   local g2=Duel.SelectMatchingCard(dp,c58391973.zombfil,dp,LOCATION_MZONE,0,1,1,nil,05186893)

   g1:Merge(g2)
   Duel.Release(g1,REASON_COST)
end
------------------------------------------------------------------------------------------------------------------------------------
function c58391973.aclimit(e,re)
   return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and re:GetHandler():IsType(TYPE_FIELD)
end
------------------------------------------------------------------------------------------------------------------------------------
function c58391973.kcon(e,tp,eg,ep,ev,re,r,rp)
   local tc=Duel.GetAttacker()
   if e:GetHandler()==tc then tc=Duel.GetAttackTarget() end
   e:SetLabelObject(tc)
   if not e:GetHandler():IsRelateToBattle() or e:GetHandler():IsFacedown() then return false end
   return tc:GetLocation()==LOCATION_GRAVE and tc:IsRace(RACE_ZOMBIE)
end
function c58391973.ktg(e,tp,eg,ep,ev,re,r,rp,chk)
   local tc=e:GetLabelObject()
   if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) end
   tc:CreateEffectRelation(e)
   Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tc,1,0,LOCATION_GRAVE)
end
function c58391973.kop(e,tp,eg,ep,ev,re,r,rp)
   local tc=e:GetLabelObject()
   local t={}
   if tc:IsRelateToEffect(e) and tc:IsRace(RACE_ZOMBIE) then
      if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) then
         t[1]=aux.Stringid(58391973,0)
         t[2]=aux.Stringid(58391973,1)

         Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(58391973,2))
         local sel=Duel.SelectOption(e:GetHandlerPlayer(),table.unpack(t))+1
         local opt=t[sel]-aux.Stringid(58391973,0)
         
         if opt==0 then
            local ea=Effect.CreateEffect(e:GetHandler())
            ea:SetCategory(CATEGORY_ATKCHANGE)
            ea:SetType(EFFECT_TYPE_SINGLE)
            ea:SetReset(RESET_EVENT+0x1fe0000)
            ea:SetCode(EFFECT_UPDATE_ATTACK)
            ea:SetValue(300)
            tc:RegisterEffect(ea)
         else
            Duel.Draw(e:GetHandlerPlayer(),1,REASON_EFFECT)
         end
      end
   end
end
------------------------------------------------------------------------------------------------------------------------------------