mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
womb scry generators
This commit is contained in:
parent
9f155f7e8f
commit
daa1cb06a5
@ -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"]]
|
||||
|
16
gen/hood/transfer.hoon
Normal file
16
gen/hood/transfer.hoon
Normal file
@ -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"]
|
12
gen/womb/balance.hoon
Normal file
12
gen/womb/balance.hoon
Normal file
@ -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)]
|
13
gen/womb/balances.hoon
Normal file
13
gen/womb/balances.hoon
Normal file
@ -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)
|
12
gen/womb/shop.hoon
Normal file
12
gen/womb/shop.hoon
Normal file
@ -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)))]
|
13
gen/womb/stats.hoon
Normal file
13
gen/womb/stats.hoon
Normal file
@ -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)
|
Loading…
Reference in New Issue
Block a user