womb scry generators

gen/hood/invite.hoon

@@ -4,11 +4,12 @@
 /?    310
 ::
 ::::
-  !:
-=+  mail=@ta
+  ::
+/+  womb
 :-  %say
 |=  $:  {now/@da eny/@uvI bec/beak}
-        {{who/@ta $~} ref/(each ship mail) sta/@}
+        {{who/@ta $~} ref/(unit (each ship mail:womb)) sta/@}
     ==
 :-  %womb-invite
-[ref who 10 sta "You have been invited to Urbit" "This is an invite of 10 planets"]
+^-  {reference invite}:womb
+[ref [who 10 sta "You have been invited to Urbit" "This is an invite of 10 planets"]]

gen/hood/transfer.hoon

@@ -0,0 +1,16 @@
+::
+::::  /hoon/transfer/hood/gen
+  ::
+/?    310
+/+    womb
+::
+::::
+  !:
+:-  %say
+|=  $:  {now/@da eny/@uvI bec/beak}
+        {{pas/@pG who/@ta $~} $~}
+    ==
+:-  %womb-reinvite
+=+  [him=(scot %p p.bec) cas=(scot %da now) key=(scot %p pas)]
+=+  [pla=planets sta=stars]:.^(balance:womb %gx /[him]/hood/[cas]/womb/balance/[key])  
+[pas who pla sta "Email updated, new passcode" "Email correction"]

gen/womb/balance.hoon

@@ -0,0 +1,12 @@
+::
+::::  /hoon/balance/womb/gen
+  ::
+/?    310
+/+    womb
+:-  %say
+|=  $:  {now/@da eny/@uvI bec/beak}
+        {pas/@pG $~}
+        who/(unit @p)
+    ==
+=-  [%womb-balance .^(balance:womb %gx /[him]/hood/[cas]/womb/balance/[key])]
+[him=(scot %p ?^(who u.who p.bec)) cas=(scot %da now) key=(scot %p pas)]

gen/womb/balances.hoon

@@ -0,0 +1,13 @@
+::
+::::  /hoon/balance/womb/gen
+  ::
+/?    310
+/+    womb
+:-  %say
+|=  $:  {now/@da eny/@uvI bec/beak}
+        $~
+        who/(unit @p)
+    ==
+:-  %womb-balance-all
+=+  [him=(scot %p ?^(who u.who p.bec)) cas=(scot %da now)]
+.^((set {@pG mail:womb}) %gx /[him]/hood/[cas]/womb/balance)

gen/womb/shop.hoon

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

gen/womb/stats.hoon

@@ -0,0 +1,13 @@
+::
+::::  /hoon/stats/womb/gen
+  ::
+/?    310
+/+    womb
+:-  %say
+|=  $:  {now/@da eny/@uvI bec/beak}
+        $~
+        who/(unit @p)
+    ==
+:-  %womb-stat-all
+=+  [him=(scot %p ?^(who u.who p.bec)) cas=(scot %da now)]
+.^((map ship stat:womb) %gx /[him]/hood/[cas]/womb/stats)