Fix 無窮機竜カルノール

https://github.com/Fluorohydride/ygopro-pre-script/pull/1218

script/c101203024.lua

 --無窮機竜カルノール
 local s,id,o=GetID()
 function s.initial_effect(c)
-	c:SetSPSummonOnce(27134209)
+	c:SetSPSummonOnce(id)
 	c:EnableReviveLimit()
 	--special summon
 	local e1=Effect.CreateEffect(c)
@@ -72,6 +72,6 @@ function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function s.tdop(e,tp,eg,ep,ev,re,r,rp)
 	if e:GetHandler():IsRelateToEffect(e) then
-		Duel.SendtoDeck(e:GetHandler(),nil,SEQ_DECKTOP,REASON_EFFECT)
+		Duel.SendtoDeck(e:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
 	end
 end
\ No newline at end of file