name: Elemental
card_text: "Elemental HERO Neos" + "Neo-Spacian Dark Panther" + "Neo-Spacian Glow Moss"
  Must first be Special Summoned (from your Extra Deck) by shuffling the above cards you control into the Deck. Once per turn, during the End Phase: Shuffle this card into the Extra Deck, and if you do, Set all face-up monsters on the field. Once per turn, during your Main Phase 1: You can toss a coin 3 times.
  ��3 Heads: Destroy all monsters your opponent controls.
  ��2 Heads: For the rest of this turn, the effects of all face-up monsters your opponent controls are negated.
  ��1 Head: Return all monsters you control to the hand.
external_ids: local CARD_ID_0 = 89943723 --Elemental HERO Neos
  local CARD_ID_1 = 43237273 --Neo-Spacian Dark Panther
  local CARD_ID_2 = 17732278 --Neo-Spacian Glow Moss
  
lua: local CARD_ID_0 = 89943723 --Elemental HERO Neos
  local CARD_ID_1 = 43237273 --Neo-Spacian Dark Panther
  local CARD_ID_2 = 17732278 --Neo-Spacian Glow Moss
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--fusion material
  	c:EnableReviveLimit()
  	aux.AddFusionProcCode3(c, CARD_ID_0, CARD_ID_1, CARD_ID_2, false, false)
  	aux.AddContactFusionProcedure(c, Card.IsAbleToDeckOrExtraAsCost, LOCATION_ONFIELD, 0, aux.ContactFusionSendToDeck(c))
  	--spsummon condition
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_SINGLE)
  	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE + EFFECT_FLAG_UNCOPYABLE)
  	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
  	e1:SetValue(s.splimit)
  	c:RegisterEffect(e1)
  	--return
  	aux.EnableNeosReturn(c, s.retop)
  	--coin
  	local e5 = Effect.CreateEffect(c)
  	e5:SetDescription(aux.Stringid(id, 1))
  	e5:SetCategory(CATEGORY_COIN + CATEGORY_DESTROY + CATEGORY_TOHAND)
  	e5:SetType(EFFECT_TYPE_IGNITION)
  	e5:SetRange(LOCATION_MZONE)
  	e5:SetCountLimit(1)
  	e5:SetCondition(s.coincon)
  	e5:SetTarget(s.cointg)
  	e5:SetOperation(s.coinop)
  	c:RegisterEffect(e5)
  end
  s.material_setcode = 0x8
  function s.splimit(e, se, sp, st)
  	return not e:GetHandler():IsLocation(LOCATION_EXTRA)
  end
  function s.retop(e, tp, eg, ep, ev, re, r, rp)
  	local c = e:GetHandler()
  	if not c:IsRelateToEffect(e) or c:IsFacedown() then
  		return
  	end
  	Duel.SendtoDeck(c, nil, SEQ_DECKSHUFFLE, REASON_EFFECT)
  	if c:IsLocation(LOCATION_EXTRA) then
  		local g = Duel.GetMatchingGroup(Card.IsFaceup, tp, LOCATION_MZONE, LOCATION_MZONE, nil)
  		Duel.ChangePosition(g, POS_FACEDOWN_DEFENSE)
  	end
  end
  function s.coincon(e, tp, eg, ep, ev, re, r, rp)
  	return Duel.GetCurrentPhase() == PHASE_MAIN1
  end
  function s.cointg(e, tp, eg, ep, ev, re, r, rp, chk)
  	if chk == 0 then
  		return true
  	end
  	Duel.SetOperationInfo(0, CATEGORY_COIN, nil, 0, tp, 3)
  end
  function s.coinop(e, tp, eg, ep, ev, re, r, rp)
  	local c1, c2, c3 = Duel.TossCoin(tp, 3)
  	if c1 + c2 + c3 == 3 then
  		local g = Duel.GetMatchingGroup(aux.TRUE, tp, 0, LOCATION_MZONE, nil)
  		Duel.Destroy(g, REASON_EFFECT)
  	elseif c1 + c2 + c3 == 2 then
  		local g = Duel.GetMatchingGroup(Card.IsFaceup, tp, 0, LOCATION_MZONE, nil)
  		local c = e:GetHandler()
  		local tc = g:GetFirst()
  		while tc do
  			local e1 = Effect.CreateEffect(c)
  			e1:SetType(EFFECT_TYPE_SINGLE)
  			e1:SetCode(EFFECT_DISABLE)
  			e1:SetReset(RESET_EVENT + RESETS_STANDARD + RESET_PHASE + PHASE_END)
  			tc:RegisterEffect(e1)
  			local e2 = Effect.CreateEffect(c)
  			e2:SetType(EFFECT_TYPE_SINGLE)
  			e2:SetCode(EFFECT_DISABLE_EFFECT)
  			e2:SetReset(RESET_EVENT + RESETS_STANDARD + RESET_PHASE + PHASE_END)
  			tc:RegisterEffect(e2)
  			tc = g:GetNext()
  		end
  	elseif c1 + c2 + c3 == 1 then
  		local g = Duel.GetMatchingGroup(Card.IsAbleToHand, tp, LOCATION_MZONE, 0, nil)
  		Duel.SendtoHand(g, nil, REASON_EFFECT)
  	end
  end
  
  
source_text: Elemental
  "Elemental HERO Neos" + "Neo-Spacian Dark Panther" + "Neo-Spacian Glow Moss"
  Must first be Special Summoned (from your Extra Deck) by shuffling the above cards you control into the Deck. Once per turn, during the End Phase: Shuffle this card into the Extra Deck, and if you do, Set all face-up monsters on the field. Once per turn, during your Main Phase 1: You can toss a coin 3 times.
  ��3 Heads: Destroy all monsters your opponent controls.
  ��2 Heads: For the rest of this turn, the effects of all face-up monsters your opponent controls are negated.
  ��1 Head: Return all monsters you control to the hand.
target_text: -- Elemental
  local CARD_ID_0 = 89943723 --Elemental HERO Neos
  local CARD_ID_1 = 43237273 --Neo-Spacian Dark Panther
  local CARD_ID_2 = 17732278 --Neo-Spacian Glow Moss
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--fusion material
  	c:EnableReviveLimit()
  	aux.AddFusionProcCode3(c, CARD_ID_0, CARD_ID_1, CARD_ID_2, false, false)
  	aux.AddContactFusionProcedure(c, Card.IsAbleToDeckOrExtraAsCost, LOCATION_ONFIELD, 0, aux.ContactFusionSendToDeck(c))
  	--spsummon condition
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_SINGLE)
  	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE + EFFECT_FLAG_UNCOPYABLE)
  	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
  	e1:SetValue(s.splimit)
  	c:RegisterEffect(e1)
  	--return
  	aux.EnableNeosReturn(c, s.retop)
  	--coin
  	local e5 = Effect.CreateEffect(c)
  	e5:SetDescription(aux.Stringid(id, 1))
  	e5:SetCategory(CATEGORY_COIN + CATEGORY_DESTROY + CATEGORY_TOHAND)
  	e5:SetType(EFFECT_TYPE_IGNITION)
  	e5:SetRange(LOCATION_MZONE)
  	e5:SetCountLimit(1)
  	e5:SetCondition(s.coincon)
  	e5:SetTarget(s.cointg)
  	e5:SetOperation(s.coinop)
  	c:RegisterEffect(e5)
  end
  s.material_setcode = 0x8
  function s.splimit(e, se, sp, st)
  	return not e:GetHandler():IsLocation(LOCATION_EXTRA)
  end
  function s.retop(e, tp, eg, ep, ev, re, r, rp)
  	local c = e:GetHandler()
  	if not c:IsRelateToEffect(e) or c:IsFacedown() then
  		return
  	end
  	Duel.SendtoDeck(c, nil, SEQ_DECKSHUFFLE, REASON_EFFECT)
  	if c:IsLocation(LOCATION_EXTRA) then
  		local g = Duel.GetMatchingGroup(Card.IsFaceup, tp, LOCATION_MZONE, LOCATION_MZONE, nil)
  		Duel.ChangePosition(g, POS_FACEDOWN_DEFENSE)
  	end
  end
  function s.coincon(e, tp, eg, ep, ev, re, r, rp)
  	return Duel.GetCurrentPhase() == PHASE_MAIN1
  end
  function s.cointg(e, tp, eg, ep, ev, re, r, rp, chk)
  	if chk == 0 then
  		return true
  	end
  	Duel.SetOperationInfo(0, CATEGORY_COIN, nil, 0, tp, 3)
  end
  function s.coinop(e, tp, eg, ep, ev, re, r, rp)
  	local c1, c2, c3 = Duel.TossCoin(tp, 3)
  	if c1 + c2 + c3 == 3 then
  		local g = Duel.GetMatchingGroup(aux.TRUE, tp, 0, LOCATION_MZONE, nil)
  		Duel.Destroy(g, REASON_EFFECT)
  	elseif c1 + c2 + c3 == 2 then
  		local g = Duel.GetMatchingGroup(Card.IsFaceup, tp, 0, LOCATION_MZONE, nil)
  		local c = e:GetHandler()
  		local tc = g:GetFirst()
  		while tc do
  			local e1 = Effect.CreateEffect(c)
  			e1:SetType(EFFECT_TYPE_SINGLE)
  			e1:SetCode(EFFECT_DISABLE)
  			e1:SetReset(RESET_EVENT + RESETS_STANDARD + RESET_PHASE + PHASE_END)
  			tc:RegisterEffect(e1)
  			local e2 = Effect.CreateEffect(c)
  			e2:SetType(EFFECT_TYPE_SINGLE)
  			e2:SetCode(EFFECT_DISABLE_EFFECT)
  			e2:SetReset(RESET_EVENT + RESETS_STANDARD + RESET_PHASE + PHASE_END)
  			tc:RegisterEffect(e2)
  			tc = g:GetNext()
  		end
  	elseif c1 + c2 + c3 == 1 then
  		local g = Duel.GetMatchingGroup(Card.IsAbleToHand, tp, LOCATION_MZONE, 0, nil)
  		Duel.SendtoHand(g, nil, REASON_EFFECT)
  	end
  end
  
  