shrub/gen/hood/bonus.hoon
2018-03-18 21:18:20 -07:00

19 lines
355 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]