2015-01-12 04:57:17 +03:00
|
|
|
:: Poke path [mark *] || Poke ship path [mark *]. Send message to an app.
|
2014-12-17 01:01:13 +03:00
|
|
|
!:
|
2015-01-12 04:13:34 +03:00
|
|
|
::::
|
|
|
|
|
::
|
2014-12-17 01:01:13 +03:00
|
|
|
|_ [hide ~]
|
|
|
|
|
++ mess ,[p=path q=[@ *] ~]
|
|
|
|
|
++ pock-poke-args
|
|
|
|
|
|= [ost=bone @ a=type b=?(mess [her=ship mess])]
|
|
|
|
|
=- :_(+>.$ [ost %pass / %g %mess -]~)
|
2015-01-20 03:07:31 +03:00
|
|
|
^- [p=[ship path] q=ship r=cage]
|
2014-12-17 01:01:13 +03:00
|
|
|
?^ |2.b [[her p]:b our -.q.b (slot 29 [a b])] :: +.&3
|
|
|
|
|
[[our p.b] our -.q.b (slot 13 [a b])] :: +.&2
|
|
|
|
|
::
|
|
|
|
|
++ pour
|
|
|
|
|
|= [ost=bone * sih=*]
|
2015-01-09 03:10:31 +03:00
|
|
|
~& poke-resp/;;([term term] [&1 &2]:sih)
|
2014-12-17 01:01:13 +03:00
|
|
|
:_(+> [ost %pass / %g %cide %$]~)
|
|
|
|
|
--
|
