ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-13 20:04:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

newbreach can bring up a sub again.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-05-22 13:24:34 -07:00
parent 13c4dd3416
commit a051f1e88e
2 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
arvo/batz.hoon
View File

@ -1152,6 +1152,7 @@
++ beat :: process move ++ beat :: process move
|= [tea=wire hen=duct fav=card] |= [tea=wire hen=duct fav=card]
^- [p=(list move) q=vane] ^- [p=(list move) q=vane]
:: ~& [%batz-beat -.fav [%tea tea] [%hen hen]]
=+ wru=*(unit writ) =+ wru=*(unit writ)
=+ sky=|=(* `(unit)`=+(a=(ska +<) ?~(a ~ ?~(u.a ~ [~ u.u.a])))) =+ sky=|=(* `(unit)`=+(a=(ska +<) ?~(a ~ ?~(u.a ~ [~ u.u.a]))))
?: ?=([%crud *] fav) ?: ?=([%crud *] fav)
@ -1193,7 +1194,6 @@
== ==
|- ^- [p=(list move) q=vane] |- ^- [p=(list move) q=vane]
=+ dus=(~(get by dez) hen) =+ dus=(~(get by dez) hen)
:: ~& [%beat -.fav hen (mug dez) =(~ dus)]
?~ dus ?~ dus
?+ -.fav ?+ -.fav
~& [%beat-none -.fav tea hen] ~& [%beat-none -.fav tea hen]
@ -1222,13 +1222,6 @@
== ==
?> ?=(^ u.dus) ?> ?=(^ u.dus)
?+ -.fav ?+ -.fav
=> ?. ?=(%writ -.fav) .
:: ~& [%batz-writ tea]
.
:: ?~ wru
:: =+ ade=(adit hen)
:: =+ hem=?-(ade %lead [%lead p.i.u.dus], %iron %iron, %gold %gold)
:: [[[[~ hem p.i.u.dus] [[%b tea] hen] fav] ~] ..^^$]
=+ beg=`brat`[[p.i.u.dus bred] q.i.u.dus] =+ beg=`brat`[[p.i.u.dus bred] q.i.u.dus]
=+ yub=(leap:((be beg) now eny sky) tea hen fav) =+ yub=(leap:((be beg) now eny sky) tea hen fav)
:- p.yub :- p.yub

13
arvo/clay.hoon
View File

@ -443,7 +443,7 @@
:_ ..^$ :_ ..^$
:~ :+ wru :~ :+ wru
[/a [%c ~] hen] [/a [%c ~] hen]
`card`[%want [our him] [%r %re %c t.tea] p.fav] `card`[%want [our him] [%r %re %c t.t.tea] p.fav]
== ==
:: ::
%went :: XX should actually propagate %went :: XX should actually propagate
@ -492,6 +492,17 @@
++ scry :: inspect ++ scry :: inspect
|= [our=ship ren=@tas his=ship syd=desk lot=coin tyl=path] |= [our=ship ren=@tas his=ship syd=desk lot=coin tyl=path]
^- (unit (unit)) ^- (unit (unit))
=+ ^= whu ^- (unit ,@p) :: XX HEINOUS
?: (~(has by fat.ruf) his)
`his
=+ foo=`(list ,[p=ship q=room])`(~(tap by fat.ruf) ~)
|- ^- (unit ,@p)
?~ foo ~
?: (~(has by rid.q.i.foo) his) `p.i.foo
$(foo t.foo)
?~ whu ~
=. our u.whu
:: ~? !=(`our whu) [%clay-scry whu our ren his syd lot tyl]
=+ luk=?.(?=(%$ -.lot) ~ ((soft case) p.lot)) =+ luk=?.(?=(%$ -.lot) ~ ((soft case) p.lot))
?~ luk [~ ~] ?~ luk [~ ~]
=+ une=(un our now ruf) =+ une=(un our now ruf)