gen: add +ames-keys generator

This commit is contained in:
yosoyubik 2023-05-12 09:20:43 +02:00
parent 65fd1cc179
commit f224d5be60

View File

@ -0,0 +1,10 @@
:: Print keys for a ship, as stored in %ames
::
:- %say
|= [[now=time @ our=ship ^] [=ship ~] ~]
=+ .^ =ship-state:ames
%ax /(scot %p our)//(scot %da now)/peers/(scot %p ship)
==
=/ =peer-state:ames ?>(?=(%known -.ship-state) +.ship-state)
:- %noun
[life=life rift=rift]:peer-state