gall: support %z scry

pkg/arvo/sys/vane/gall.hoon

@@ -2064,11 +2064,26 @@
       ==
     ?.  ?=([~ %& *] res)  ~
     ``[%noun %noun p.u.res]
-  ::  TODO new care to ask for hash of a sky binding
   ::
   ?.  ?=(%.y -.shop)
     ~
   =/  =ship  p.shop
+  ?:  ?&  =(%z care)
+          =(our ship)
+      ==
+    =/  yok  (~(get by yokes.state) q.bem)
+    ?.  ?=([~ %live *] yok)              ~
+    ?~  ski=(~(get by sky.u.yok) s.bem)  ~
+    =/  res=(unit (each noun @uvI))
+      ?+  -.r.bem  ~
+        %ud  (get:on-path fan.u.ski p.r.bem)
+        %da  ?.(=(p.r.bem now) ~ (bind (ram:on-path fan.u.ski) tail))
+      ==
+    ?+  res     ~
+      [~ %| *]  ``noun/!>(p.u.res)
+      [~ %& *]  ``noun/!>(`@uvI`(shax (jam p.u.res)))
+    ==
+  ::
   ?:  &(=(care %$) =(path /whey))
     =/  blocked
       =/  queued  (~(run by blocked.state) |=((qeu blocked-move) [%.y +<]))