mirror of
https://github.com/arthyn/sphinx.git
synced 2024-12-26 17:33:30 +03:00
41 lines
925 B
Plaintext
41 lines
925 B
Plaintext
:: pals: manual neighboring
|
|
::
|
|
|%
|
|
+$ records :: local state
|
|
$: outgoing=(jug ship @ta)
|
|
incoming=(set ship)
|
|
::
|
|
:: receipts: for all outgoing, status
|
|
::
|
|
:: if ship not in receipts, poke awaiting ack
|
|
:: if ship present as true, poke acked positively
|
|
:: if ship present as false, poke acked negatively
|
|
::
|
|
receipts=(map ship ?)
|
|
==
|
|
::
|
|
+$ gesture :: to/from others
|
|
$% [%hey ~]
|
|
[%bye ~]
|
|
==
|
|
::
|
|
+$ command :: from ourselves
|
|
$% [%meet =ship in=(set @ta)] :: empty set allowed
|
|
[%part =ship in=(set @ta)] :: empty set implies un-targeting
|
|
==
|
|
::
|
|
+$ effect :: to ourselves
|
|
$% target-effect
|
|
leeche-effect
|
|
==
|
|
::
|
|
+$ target-effect
|
|
$% [%meet =ship] :: hey to target
|
|
[%part =ship] :: bye to target
|
|
==
|
|
::
|
|
+$ leeche-effect
|
|
$% [%near =ship] :: hey from leeche
|
|
[%away =ship] :: bye from leeche
|
|
==
|
|
-- |