urbit/gen/hood/bonus.hoon
2017-11-09 16:53:30 -08:00

19 lines
359 B
Plaintext

:: Womb: add planets/stars to balance
::
:::: /hoon/bonus/hood/gen
::
/? 310
/+ old-zuse
=, old-zuse
::
::::
::
:- %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.opt stars.opt]