mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 04:22:48 +03:00
26 lines
560 B
Plaintext
26 lines
560 B
Plaintext
:: Generate random moon and corresponding ticket
|
|
::
|
|
:::: /hoon/moon/gen
|
|
::
|
|
/? 310
|
|
/- sole
|
|
/+ old-zuse
|
|
=, old-zuse
|
|
[. sole]
|
|
::
|
|
::::
|
|
::
|
|
:- %ask
|
|
|= $: {now/@da eny/@uvJ bec/beak}
|
|
$~
|
|
$~
|
|
==
|
|
=/ ran (clan p.bec)
|
|
?: ?=({?($earl $pawn)} ran)
|
|
%- sole-so
|
|
:- %tang :_ ~
|
|
leaf+"can't create a moon from a {?:(?=($earl ran) "moon" "comet")}"
|
|
=/ mon (mix (lsh 5 1 (end 5 1 eny)) p.bec)
|
|
=/ tic .^(@ /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p mon))
|
|
(sole-so [%tang leaf+"ticket: {<`@p`tic>}" leaf+"moon: {<`@p`mon>}" ~])
|