1145141919810

expansions/script/c16114242.lua

 --春仙精 霍普尔
 xpcall(function() require("expansions/script/c16199990") end,function() require("script/c16199990") end)
-local m,cm=rk.set(16114211,"FAIRY")
-local m,cm=rk.set(16114242,"FAIRY")
+local m,cm=rk.set(16114242,"FAIRY",0,16114211)
 function cm.initial_effect(c)
 	c:SetSPSummonOnce(16114211)
 	--Recover

expansions/script/c16114243.lua

 --恶魔仙精 贝拉冬娜
 xpcall(function() require("expansions/script/c16199990") end,function() require("script/c16199990") end)
-local m,cm=rk.set(16114208,"FAIRY",1)
-function c16114243.initial_effect(c)
+local m,cm=rk.set(16114243,"FAIRY",1,16114208)
+function cm.initial_effect(c)
 	c:SetSPSummonOnce(16114208)
 	c:EnableReviveLimit()
 	--search
@@ -11,9 +11,9 @@ function c16114243.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCountLimit(1,m)
-	e1:SetCost(c16114243.cost)
-	e1:SetTarget(c16114243.target)
-	e1:SetOperation(c16114243.operation)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
 	--to deck
 	local e3=Effect.CreateEffect(c)
@@ -25,44 +25,44 @@ function c16114243.initial_effect(c)
 	e3:SetRange(LOCATION_MZONE)
 	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
 	e3:SetCountLimit(1,m+100)
-	e3:SetTarget(c16114243.drtg)
-	e3:SetOperation(c16114243.drop)
+	e3:SetTarget(cm.drtg)
+	e3:SetOperation(cm.drop)
 	c:RegisterEffect(e3)
 end
 --search
-function c16114243.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	if chk==0 then return c:IsDiscardable() end
 	Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
 end
-function c16114243.filter2(c)
+function cm.filter2(c)
 	return c:IsCode(16114203) and c:IsAbleToHand()
 end
-function c16114243.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c16114243.filter2,tp,LOCATION_DECK,0,1,nil) end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_DECK,0,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
-function c16114243.operation(e,tp,eg,ep,ev,re,r,rp)
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local tg=Duel.SelectMatchingCard(tp,c16114243.filter2,tp,LOCATION_DECK,0,1,1,nil)
+	local tg=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_DECK,0,1,1,nil)
 	if tg:GetCount()>0 then
 		Duel.SendtoHand(tg,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,tg)
 	end
 end
 --to deck
-function c16114243.tdfilter(c)
+function cm.tdfilter(c)
 	return c:IsAbleToDeck()
 end
-function c16114243.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c16114243.tdfilter(chkc)end
-	if chk==0 then return Duel.IsExistingTarget(c16114243.tdfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
+function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and cm.tdfilter(chkc)end
+	if chk==0 then return Duel.IsExistingTarget(cm.tdfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectTarget(tp,c16114243.tdfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,2,nil)
+	local g=Duel.SelectTarget(tp,cm.tdfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,2,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
 	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,1)
 end
-function c16114243.drop(e,tp,eg,ep,ev,re,r,rp)
+function cm.drop(e,tp,eg,ep,ev,re,r,rp)
 	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
 	if tg:GetCount()<=0 then return end
 	Duel.SendtoDeck(tg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)

expansions/script/c16114244.lua

 --不死仙精 贝拉多阿涅
 xpcall(function() require("expansions/script/c16199990") end,function() require("script/c16199990") end)
-local m,cr=rk.set(16114209,"FAIRY")
+local m,cr=rk.set(16114244,"FAIRY",1,16114209)
 function c16114244.initial_effect(c)
 	c:SetSPSummonOnce(16114209)
 	c:EnableReviveLimit()

expansions/script/c16114249.lua

@@ -112,6 +112,6 @@ function cm.seaop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
 		local sg=g:Select(tp,1,1,nil)
 		Duel.SendtoHand(sg,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
+		Duel.ConfirmCards(1-tp,sg)
 	end
 end
\ No newline at end of file

expansions/script/c16199990.lua

@@ -44,12 +44,12 @@ local cate_table_for_reikai={
 ['ct'] = CATEGORY_COUNTER,
 ['des'] = CATEGORY_DESTROY,
 }
-function rk.set(code,setcode,rkflag)
+function rk.set(code,setcode,rkflag,excode)
 	if not _G["c"..code] then _G["c"..code]={}
 		setmetatable(_G["c"..code],Card)
 		_G["c"..code].__index=_G["c"..code]
 	end
-	local ccodem=_G["c"..code]   
+	local ccodem=_G["c"..code] 
 	if setcode and not ccodem.rksetcode then
 		ccodem.rksetcode=setcode
 	end
@@ -74,6 +74,17 @@ function rk.set(code,setcode,rkflag)
 		e3:SetCode(EVENT_SPSUMMON_SUCCESS)
 		Duel.RegisterEffect(e3,0)
 	end
+	if excode then
+		local e2=Effect.GlobalEffect()
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetCode(EVENT_PREDRAW)
+		e2:SetRange(LOCATION_HAND)
+		e2:SetOperation(function(e)
+						Duel.CreateToken(0,excode)
+						e:Reset()
+							end)
+		Duel.RegisterEffect(e2,0)
+	end
 	return code,ccodem
 end
 function rk.rkcardcheck(c)