mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 12:22:10 +03:00
44 lines
919 B
Plaintext
44 lines
919 B
Plaintext
/- begin-args
|
|
::
|
|
|%
|
|
++ 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=will]
|
|
:_ +>.$ :_ ~
|
|
[ust %pass / %a %cash his mac wil]
|
|
::
|
|
++ pour
|
|
|= [ost=bone pax=path sih=*]
|
|
=+ sih=((soft sign) sih) :: seem to get blits
|
|
?~ sih `+>.$
|
|
:_ +>.$
|
|
?- +<.u.sih
|
|
%init [ost %give +.u.sih]~
|
|
%went [ost %give ?:(?=(%good q.u.sih) [%nice ~] [%mean ~ %went-dead ~])]~
|
|
==
|
|
::
|
|
++ peer
|
|
|=
|
|
*
|
|
`+>
|
|
--
|