mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 21:03:10 +03:00
50 lines
1.1 KiB
Plaintext
50 lines
1.1 KiB
Plaintext
|%
|
|
++ sign
|
|
$% $: %a
|
|
$% [%went p=ship q=cape]
|
|
[%init p=@p]
|
|
== == ==
|
|
++ began-args ,[his=@p tic=@p eny=@t ges=gens]
|
|
--
|
|
::
|
|
!:
|
|
|_ [hid=hide %0 ust=bone his=@p mac=mace]
|
|
++ poke-began-args
|
|
|= [ost=bone you=ship began-args]
|
|
=+ bur=(shax :(mix (jam ges) eny))
|
|
=+ loy=(bruw 2.048 bur)
|
|
:_ +>.$(ust ost, his his, mac [0 sec:ex:loy]~)
|
|
:~ :* ost %pass /ticketing %a %want [our.hid (sein his)] /q/ta
|
|
his tic ges pub:ex:loy
|
|
==
|
|
==
|
|
::
|
|
++ poke-will
|
|
|= [ost=bone you=ship wil=(unit will)]
|
|
:_ +>.$
|
|
?~ wil
|
|
[ust %give %mean ~ %rejected ~]~
|
|
:~ [ust %pass / %a %cash his mac u.wil]
|
|
[ust %pass / %c %plug our.hid %main (sein our.hid) %main]
|
|
[ust %pass / %c %plug our.hid %arvo (sein our.hid) %arvo]
|
|
[ust %pass / %c %plug our.hid %try (sein our.hid) %try]
|
|
[ust %give %nice ~]
|
|
==
|
|
|
|
::
|
|
++ pour
|
|
|= [ost=bone pax=path sih=*]
|
|
=+ sih=((soft sign) sih) :: seem to get blits
|
|
?~ sih `+>.$
|
|
:_ +>.$
|
|
?- +<.u.sih
|
|
%init [ost %give +.u.sih]~
|
|
%went ~
|
|
==
|
|
::
|
|
++ peer
|
|
|=
|
|
*
|
|
`+>
|
|
--
|