fix Ancient Telescope (#516)

c17092736.lua

@@ -10,12 +10,18 @@ function c17092736.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 function c17092736.cftg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>=5 end
+	if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>0 end
 	Duel.SetTargetPlayer(tp)
 end
 function c17092736.cfop(e,tp,eg,ep,ev,re,r,rp)
 	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
-	local g=Duel.GetDecktopGroup(1-p,5)
+	local ct=math.min(5,Duel.GetFieldGroupCount(p,0,LOCATION_DECK))
+	local t={}
+	for i=1,ct do
+		t[i]=i
+	end
+	local ac=Duel.AnnounceNumber(p,table.unpack(t))
+	local g=Duel.GetDecktopGroup(1-p,ac)
 	if g:GetCount()>0 then
 		Duel.ConfirmCards(p,g)
 	end