2016-10-22 02:44:39 +03:00
|
|
|
:: Browse random claimable ships
|
2016-04-30 00:40:44 +03:00
|
|
|
::
|
|
|
|
:::: /hoon/shop/womb/gen
|
|
|
|
::
|
|
|
|
/? 310
|
|
|
|
:- %say
|
2016-08-12 10:18:04 +03:00
|
|
|
|= $: {now/@da eny/@uvJ bec/beak}
|
2018-03-19 07:18:20 +03:00
|
|
|
arg/$@(~ {typ/?($planets $galaxies $stars) ~})
|
2016-04-30 00:40:44 +03:00
|
|
|
who/(unit @p)
|
|
|
|
==
|
|
|
|
?~ arg $(arg ~[typ=%planets])
|
2016-07-07 00:48:45 +03:00
|
|
|
=- [%ships .^((list ship) %gx /[him]/hood/[cas]/womb/shop/[typ.arg]/[nth]/ships)]
|
2016-04-30 00:40:44 +03:00
|
|
|
[him=(scot %p ?^(who u.who p.bec)) cas=(scot %da now) nth=(scot %ud %.(10 ~(rad og eny)))]
|