urbit/gen/hood/bonus.hoon
2016-11-16 17:42:58 -08:00

17 lines
325 B
Plaintext

:: Womb: add planets/stars to balance
::
:::: /hoon/bonus/hood/gen
::
/? 310
::
::::
::
:- %say
|= $: {now/@da eny/@uvJ bec/beak}
{{pas/@uvG opt/$@($~ {planets/@u $@($~ {stars/@u $~})})} $~}
==
?~ opt $(opt [planets=1]~)
?~ +.opt $(+.opt [stars=0]~)
:- %womb-bonus
[(scot %uv pas) planets stars]