2015-10-20 21:12:22 +03:00
|
|
|
::
|
2016-02-05 06:05:37 +03:00
|
|
|
:::: /hoon/moon/gen
|
2015-10-20 21:12:22 +03:00
|
|
|
::
|
2016-02-17 04:40:32 +03:00
|
|
|
/? 310
|
2015-10-20 21:12:22 +03:00
|
|
|
::
|
|
|
|
|
::::
|
|
|
|
|
!:
|
|
|
|
|
:- %say
|
2016-01-26 03:52:58 +03:00
|
|
|
|= $: {now/@da eny/@uvI bec/beak}
|
2016-02-17 07:34:06 +03:00
|
|
|
$~
|
|
|
|
|
$~
|
2015-10-20 21:12:22 +03:00
|
|
|
==
|
2016-06-17 05:09:31 +03:00
|
|
|
:- %tang :_ ~ :- %leaf
|
|
|
|
|
=+ ran=(clan p.bec)
|
|
|
|
|
?: ?=({?($earl $pawn)} ran)
|
|
|
|
|
"can't create a moon from a {?:(?=($earl ran) "moon" "comet")}"
|
2015-10-20 21:12:22 +03:00
|
|
|
=+ mon=(mix (lsh 5 1 (end 5 1 eny)) p.bec)
|
2016-02-19 00:44:17 +03:00
|
|
|
=+ tic=.^(@ /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p mon))
|
|
|
|
|
"moon: {<`@p`mon>}; ticket: {<`@p`tic>}"
|
