mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 04:22:48 +03:00
32 lines
713 B
Plaintext
32 lines
713 B
Plaintext
|%
|
|
++ sign ::
|
|
$% $: %a ::
|
|
$% [%went p=ship q=cape] ::
|
|
== == ==
|
|
--
|
|
::
|
|
!:
|
|
|_ [hid=hide ~]
|
|
++ poke-hi-args
|
|
|= [ost=bone you=ship her=ship mes=?(~ [tex=tape ~])]
|
|
:_ +>.$
|
|
:~ [ost %pass /hi %a %want [our.hid her] /q/hi ?~(mes ~ (crip tex.mes))]
|
|
[ost %give %nice ~]
|
|
==
|
|
++ pour
|
|
|= [ost=bone pax=path sih=sign]
|
|
?> ?=([%hi ~] pax)
|
|
:_ +>.$
|
|
%+ turn (~(tap by sup.hid))
|
|
|= [ost=bone *]
|
|
:^ ost %give %rush
|
|
:- %tang :_ ~
|
|
?: ?=(%good q.sih)
|
|
leaf/"hi to {<p.sih>} successful"
|
|
leaf/"hi to {<p.sih>} not successful"
|
|
++ peer
|
|
|=
|
|
*
|
|
`+>
|
|
--
|