mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-16 02:22:12 +03:00
58 lines
1.2 KiB
Plaintext
58 lines
1.2 KiB
Plaintext
=> $~ |%
|
|
++ move (pair bone card)
|
|
++ card
|
|
$% [%turf wire ~]
|
|
[%vein wire]
|
|
[%look wire src=(each ship purl:eyre)]
|
|
[%wind wire p=@ud]
|
|
==
|
|
++ state
|
|
$: a/@
|
|
==
|
|
--
|
|
=, gall
|
|
|_ $: hid/bowl
|
|
state
|
|
==
|
|
++ poke
|
|
|= [mar=@tas val=*]
|
|
^- (quip move _+>)
|
|
~& %ouch
|
|
:_ +>.$
|
|
?+ val
|
|
~&(%oops ~)
|
|
%turf [ost.hid %turf /hi ~]~ :: +
|
|
%vein [ost.hid %vein /hi]~ :: +
|
|
%look :_ ~ :: +
|
|
=/ pul |+(need (de-purl:html 'http://eth-mainnet.urbit.org:8545'))
|
|
[ost.hid %look /hi pul]
|
|
%wind :_ ~ :: -
|
|
:* ost.hid %wind /hi
|
|
:: 0
|
|
4.280.000
|
|
==
|
|
==
|
|
::
|
|
++ vein
|
|
|= [wir/wire =life ven=(map life ring)]
|
|
^- (quip move _+>)
|
|
~& [%pierc life ven]
|
|
`+>.$
|
|
::
|
|
++ turf
|
|
|= [wir/wire pax=(list path)]
|
|
^- (quip move _+>)
|
|
~& [%slurp pax]
|
|
`+>.$
|
|
::
|
|
++ prep
|
|
|= old/(unit noun)
|
|
^- [(list move) _+>.$]
|
|
?~ old
|
|
`+>.$
|
|
=+ new=((soft state) u.old)
|
|
?~ new
|
|
`+>.$
|
|
`+>.$(+<+ u.new)
|
|
--
|