a place for all your custom card needs you can post scripts pics and request for card to be made also please donate to the funding for a new server made for custom card duels
 
HomePortalCalendarFAQSearchMemberlistUsergroupsRegisterLog in

Share | .
 

 Red-Eyes Necro Dragon

View previous topic View next topic Go down 
AuthorMessage
GatlingSkyterror

avatar


Posts : 5
Join date : 2013-08-30

PostSubject: Red-Eyes Necro Dragon   Sun Sep 01, 2013 12:07 am

I would like to request this card put into the game.



Effect:
Cannot be Normal Summoned/Set. Must be Special Summoned (from your hand) by Tributing 1 "Red-Eyes Zombie Dragon" and 1 other Zombie-Type monster you control while "Zombie World" is face-up on the field, and cannot be Special Summoned by other ways. . "Zombie World" cannot be destroyed, and Field Spell Cards cannot be activated while this card is face-up on the field. When this card destroys a Zombie-Type monster by battle and sends it to the Graveyard, you can Special Summon that monster to your side of the field, then, that card gains 300 ATK OR you draw 1 card.
Back to top Go down
View user profile
technodoomedone




Member Title : Member of the Gol'Gar Empire
Posts : 2
Join date : 2013-09-22

PostSubject: Re: Red-Eyes Necro Dragon   Sun Sep 22, 2013 2:24 pm

Code:

---------------------------------------
-------- 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
------------------------------------------------------------------------------------------------------------------------------------
string1: The resurrected monster gains 300 ATK.
string2: You draw 1 card.
string3: Choose an effect.
string4: Special Summon "Red-Eyes Necro Dragon" by Tributing "Red-Eyes Z. Dragon" and 1 other Zombie-Type monster while "Zombie World" is face-up on the field.
Back to top Go down
View user profile
Project Leviamon

avatar


Member Title : Busy with high school sadly
Posts : 320
Join date : 2013-08-03
Age : 18
Location : Digital World

PostSubject: Re: Red-Eyes Necro Dragon   Sun Sep 22, 2013 3:33 pm

nice job

_________________
Not the best at scripting, but will help if I can. Really busy lately tho :/


Youtube Channel

Dark Army vs Elemental Dragons

Planned Archetypes:
-Persona Card
-Dark Army
-Elemental Dragons
-END (tons and tons of cards made in card maker)
-Chained Dragons (lost in a computer meltdown, will redo eventually)
-RWBY (thinking of making these)
Back to top Go down
View user profile http://www.pokecommunity.com/member.php?u=364458
Sponsored content





PostSubject: Re: Red-Eyes Necro Dragon   

Back to top Go down
 

Red-Eyes Necro Dragon

View previous topic View next topic Back to top 
Page 1 of 1

 Similar topics

-
» Blue Eyes White Dragon Attack !
» Blue-Eyes Cyber Dragon
» Saga of the Blue-Eyes White Dragon: Structure Deck
» My Blue-Eyes white dragon deck
» Structure Deck - Saga of Blue-Eyes White Dragon

Permissions in this forum:You cannot reply to topics in this forum
Mackpro :: MackPro :: Requests-