gall: implement %w scry

This commit is contained in:
~wicrum-wicrun 2023-03-28 21:45:14 +02:00
parent e4ceed09ad
commit 7137f0de03

View File

@ -2151,6 +2151,13 @@
[~ ~] [~ ~]
[~ ~ atom+!>(u.nonce)] [~ ~ atom+!>(u.nonce)]
:: ::
?: =(%w care)
?> &(?=(%da -.r.bem) =(p.r.bem now))
?~ yok=(~(get by yokes.state) q.bem) ~
?~ ski=(~(get by sky.u.yok) s.bem) ~
?~ lat=(ram:on-path fan.u.ski) ~
``case/!>(ud/key.u.lat)
::
?. =(our ship) ?. =(our ship)
~ ~
?. =([%$ %da now] coin) ?. =([%$ %da now] coin)