urbit/gen/womb/shop.hoon
2018-03-18 21:18:20 -07:00

14 lines
413 B
Plaintext

:: Browse random claimable ships
::
:::: /hoon/shop/womb/gen
::
/? 310
:- %say
|= $: {now/@da eny/@uvJ bec/beak}
arg/$@(~ {typ/?($planets $galaxies $stars) ~})
who/(unit @p)
==
?~ arg $(arg ~[typ=%planets])
=- [%ships .^((list ship) %gx /[him]/hood/[cas]/womb/shop/[typ.arg]/[nth]/ships)]
[him=(scot %p ?^(who u.who p.bec)) cas=(scot %da now) nth=(scot %ud %.(10 ~(rad og eny)))]