[Card Script] Fusion Everything

-- ชื่อการ์ด: ผู้รวมทุกสิ่ง
-- ประเภท: มอนสเตอร์ฟิวชั่น
-- คุณสมบัติ: มืด / เผ่า: นักเวท / เลเวล: 8 / โจมตี: 2800 / ป้องกัน: 2000
-- รหัสผ่าน: [ใส่รหัสผ่านที่ไม่ซ้ำกัน]

local s,id=GetID()
function s.initial_effect(c)
	-- ฟิวชั่นอัญเชิญ
	Fusion.AddProc(c,nil,1,1,aux.Stringid(id,0))
	-- เอฟเฟคต่อเนื่อง: ชื่อของการ์ดนี้ถือว่าเป็นชื่อของการ์ดมอนสเตอร์ฟิวชั่นใดๆ ก็ได้
	local e1=Effect.CreateEffect(c)
	e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
	e1:SetCode(EFFECT_CHANGE_CARD_NAME)
	e1:SetRange(LOCATION_MZONE)
	e1:SetValue(s.changename)
	c:RegisterEffect(e1)
	-- เอฟเฟคต่อเนื่อง: การ์ดนี้ไม่ถูกทำลายด้วยเอฟเฟคของการ์ดคู่ต่อสู้
	local e2=Effect.CreateEffect(c)
	e2:SetType(EFFECT_TYPE_CONTINUOUS)
	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
	e2:SetValue(1)
	c:RegisterEffect(e2)
	-- เอฟเฟ็คกระตุ้น: เทิร์นละครั้ง สามารถเลือกการ์ดในสุสานของคู่ต่อสู้ 1 ใบ; เพิ่มการ์ดนั้นไปยังมือของคุณ
	local e3=Effect.CreateEffect(c)
	e3:SetType(EFFECT_TYPE_IGNITION)
	e3:SetRange(LOCATION_MZONE)
	e3:SetCountLimit(1,0)
	e3:SetTarget(s.target)
	e3:SetOperation(s.operation)
	c:RegisterEffect(e3)
end
s.material_filter=function(c)return true end
s.changename=function(e,c)
	return Duel.AnnounceCard()
end
function s.fusion_check(tp,mc,fc,chkf)
	return chkf(1,1)
end
function s.fusion_material(e,tp,mg)
	return mg:Filter(s.material_filter,nil)
end
function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
	if chk==0 then return Duel.IsExistingTarget(aux.NecroValleyFilter,tp,0,LOCATION_GRAVE,1,nil) end
	Duel.SetTargetCard(Duel.SelectTarget(tp,0,LOCATION_GRAVE,1,1,aux.NecroValleyFilter,nil))
end
function s.operation(e,tp,eg,ep,ev,re,r,rp)
	local tc=Duel.GetFirstTarget()
	if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then
		Duel.ConfirmCards(1-tp,tc)
	end
end