::  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-yo
  leaf+"(see https://github.com/urbit/arvo/issues/327 for details)"
%+  sole-yo
  :-  %leaf
  ;:  weld
    "WARNING: linking a moon to your "
    ?-(ran $czar "galaxy", $king "star", $duke "planet")
    " can cause networking bugs"
  ==
%+  sole-lo
  [& %$ "enter y/yes to continue: "]
|=  inp/tape
?.  |(=("y" inp) =("yes" inp))
  (sole-so [%tang leaf+"canceled" ~])
(sole-so [%tang leaf+"moon: {<`@p`mon>}; ticket: {<`@p`tic>}" leaf+"" ~])