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-22 06:31:17 +03:00
|
|
|
~& =+ cod=(,[term term] [&1 &2]:sih)
|
|
|
|
|
?+ +.cod poke-resp/cod
|
|
|
|
|
%nice %poke-nice
|
|
|
|
|
%mean
|
|
|
|
|
=+ are=((soft ares) |2.sih)
|
|
|
|
|
?~ are %poke-mean
|
|
|
|
|
?~ u.are %poke-nil-mean
|
|
|
|
|
~& > p.u.u.are
|
|
|
|
|
|-
|
|
|
|
|
?~ q.u.u.are %poke-mean
|
|
|
|
|
~> %slog.`rose/[~ "! " ~]^[i.q.u.u.are]~
|
|
|
|
|
$(q.u.u.are t.q.u.u.are)
|
|
|
|
|
==
|
2014-12-17 01:01:13 +03:00
|
|
|
:_(+> [ost %pass / %g %cide %$]~)
|
|
|
|
|
--
|
