add list name Red Dragon Archfiend

c18634367.lua

 --スクリーン・オブ・レッド
 function c18634367.initial_effect(c)
+	aux.AddCodeList(c,70902743)
 	--activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)

c24566654.lua

 --クリムゾン・ヘルフレア
 function c24566654.initial_effect(c)
+	aux.AddCodeList(c,70902743)
 	--reflect
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)

c2542230.lua

 --スカーレッド・コクーン
 function c2542230.initial_effect(c)
+	aux.AddCodeList(c,70902743)
 	--Activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_EQUIP)

c50215517.lua

 --クリムゾン・ヘル・セキュア
 function c50215517.initial_effect(c)
+	aux.AddCodeList(c,70902743)
 	--Activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_DESTROY)

c77336644.lua

 --レッド・デーモンズ・ドラゴン／バスター
 function c77336644.initial_effect(c)
-	aux.AddCodeList(c,80280737)
+	aux.AddCodeList(c,80280737,70902743)
 	c:EnableReviveLimit()
 	--Cannot special summon
 	local e1=Effect.CreateEffect(c)

c87614611.lua

 --紅蓮魔竜の壺
 function c87614611.initial_effect(c)
+	aux.AddCodeList(c,70902743)
 	--Activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_DRAW)