mirror of
https://github.com/ilyakooo0/urbit.git
synced 2025-01-08 08:08:35 +03:00
Various fixes and improvements.
This commit is contained in:
parent
2b940d9346
commit
cc2a7defb5
@ -640,8 +640,7 @@
|
|||||||
[%gent ~] dy-made-gent:dye
|
[%gent ~] dy-made-gent:dye
|
||||||
[%edit ~] dy-made-edit:dye
|
[%edit ~] dy-made-edit:dye
|
||||||
==
|
==
|
||||||
%| ~& [%he-made-fail way]
|
%| (he-diff(poy ~) %tan p.reg)
|
||||||
(he-diff(poy ~) %tan p.reg)
|
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ he-unto :: result from behn
|
++ he-unto :: result from behn
|
||||||
|
@ -134,8 +134,9 @@
|
|||||||
++ se-drop :: passive drop
|
++ se-drop :: passive drop
|
||||||
|= gyl=gill
|
|= gyl=gill
|
||||||
^+ +>
|
^+ +>
|
||||||
|
?. (~(has by feg) gyl) +>
|
||||||
|
=. +> (se-blit %out (tuba "[disconnected from {<gyl>}]"))
|
||||||
=< se-prom
|
=< se-prom
|
||||||
?> (~(has by feg) gyl)
|
|
||||||
%_ +>
|
%_ +>
|
||||||
feg (~(del by feg) gyl)
|
feg (~(del by feg) gyl)
|
||||||
apt (skip apt |=(a=gill =(gyl a)))
|
apt (skip apt |=(a=gill =(gyl a)))
|
||||||
@ -614,6 +615,10 @@
|
|||||||
==
|
==
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
|
++ gull
|
||||||
|
|= way=wire ^- (pair ship gill)
|
||||||
|
?>(?=([@ @ @ ~] way) [(slav %p i.way) (slav %p i.t.way) i.t.t.way])
|
||||||
|
::
|
||||||
++ poke-dill-belt
|
++ poke-dill-belt
|
||||||
|= [from bet=dill-belt]
|
|= [from bet=dill-belt]
|
||||||
^- (quip move +>)
|
^- (quip move +>)
|
||||||
@ -634,18 +639,23 @@
|
|||||||
?~ yog
|
?~ yog
|
||||||
~& [%sole-diff-stale ost way]
|
~& [%sole-diff-stale ost way]
|
||||||
[~ +>.$]
|
[~ +>.$]
|
||||||
?> ?=([@ @ @ ~] way)
|
|
||||||
=< se-abet
|
=< se-abet
|
||||||
=< se-view
|
=< se-view
|
||||||
=+ gyl=[(slav %p i.t.way) i.t.t.way]
|
=+ yaw=(gull way)
|
||||||
(~(se-diff se [~ ~] [(slav %p i.way) ost] u.yog) gyl fec)
|
(~(se-diff se [~ ~] [p.yaw ost] u.yog) q.yaw fec)
|
||||||
::
|
::
|
||||||
++ coup
|
++ coup
|
||||||
|= [then saw=(unit tang)]
|
|= [then saw=(unit tang)]
|
||||||
^- (quip move +>)
|
^- (quip move +>)
|
||||||
?~ saw [~ +>]
|
?~ saw [~ +>]
|
||||||
:_ +> :_ ~
|
=+ yog=(~(get by bin) ost)
|
||||||
[ost %flog ~ %crud %coup u.saw]
|
?~ yog
|
||||||
|
~& [%sole-coup-stale ost way]
|
||||||
|
[~ +>.$]
|
||||||
|
=< se-abet
|
||||||
|
=< se-view
|
||||||
|
=+ yaw=(gull way)
|
||||||
|
(~(se-drop se [[ost %flog ~ %crud %coup u.saw]~ ~] [p.yaw ost] u.yog) q.yaw)
|
||||||
::
|
::
|
||||||
++ reap
|
++ reap
|
||||||
|= [then saw=(unit tang)]
|
|= [then saw=(unit tang)]
|
||||||
@ -657,7 +667,14 @@
|
|||||||
++ quit
|
++ quit
|
||||||
|= then
|
|= then
|
||||||
^- (quip move +>)
|
^- (quip move +>)
|
||||||
[~ +>]
|
=+ yog=(~(get by bin) ost)
|
||||||
|
?~ yog
|
||||||
|
~& [%sole-quit-stale ost way]
|
||||||
|
[~ +>.$]
|
||||||
|
=< se-abet
|
||||||
|
=< se-view
|
||||||
|
=+ yaw=(gull way)
|
||||||
|
(~(se-drop se [~ ~] [p.yaw ost] u.yog) q.yaw)
|
||||||
::
|
::
|
||||||
++ onto
|
++ onto
|
||||||
|= [then saw=(each suss tang)]
|
|= [then saw=(each suss tang)]
|
||||||
@ -669,7 +686,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ pull
|
++ pull
|
||||||
|= from
|
|= [from pax=path]
|
||||||
^- (quip move +>)
|
^- (quip move +>)
|
||||||
:: ~& [%sole-pull ost]
|
:: ~& [%sole-pull ost]
|
||||||
=^ moz +>
|
=^ moz +>
|
||||||
|
@ -1648,7 +1648,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
%cake
|
%cake
|
||||||
:: ~& [%cake p.bon q.bon r.bon]
|
~& [%cake p.bon q.bon r.bon]
|
||||||
:_ fox
|
:_ fox
|
||||||
:~ [s.bon %give %woot q.p.bon r.bon]
|
:~ [s.bon %give %woot q.p.bon r.bon]
|
||||||
==
|
==
|
||||||
|
@ -428,7 +428,8 @@
|
|||||||
[%sys %rep (scot %p him) dap (scot %ud num) ~]
|
[%sys %rep (scot %p him) dap (scot %ud num) ~]
|
||||||
[%f %exec our (mo-beak dap) ~ %vale p.ron our q.ron]
|
[%f %exec our (mo-beak dap) ~ %vale p.ron our q.ron]
|
||||||
::
|
::
|
||||||
%x (mo-give(hen (mo-ball him num)) %unto %quit ~)
|
%x =. +> (mo-give %mack ~) :: XX should crash
|
||||||
|
(mo-give(hen (mo-ball him num)) %unto %quit ~)
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ ap :: agent engine
|
++ ap :: agent engine
|
||||||
@ -548,6 +549,7 @@
|
|||||||
::
|
::
|
||||||
++ ap-fall :: drop from queue
|
++ ap-fall :: drop from queue
|
||||||
^+ .
|
^+ .
|
||||||
|
?. (~(has by sup.ged) ost) .
|
||||||
=+ soy=(~(get by qel.ged) ost)
|
=+ soy=(~(get by qel.ged) ost)
|
||||||
?: |(?=(~ soy) =(0 u.soy))
|
?: |(?=(~ soy) =(0 u.soy))
|
||||||
~& [%ap-fill-under [our dap] q.q.pry ost]
|
~& [%ap-fill-under [our dap] q.q.pry ost]
|
||||||
@ -778,7 +780,7 @@
|
|||||||
^+ +>
|
^+ +>
|
||||||
=+ cug=(ap-find %poke p.cag ~)
|
=+ cug=(ap-find %poke p.cag ~)
|
||||||
?~ cug
|
?~ cug
|
||||||
(ap-give %coup `(ap-suck "no poke arm"))
|
(ap-give %coup `(ap-suck "no poke arm for {(trip p.cag)}"))
|
||||||
:: ~& [%ap-poke dap p.cag cug]
|
:: ~& [%ap-poke dap p.cag cug]
|
||||||
=^ tur +>.$
|
=^ tur +>.$
|
||||||
%+ ap-call q.u.cug
|
%+ ap-call q.u.cug
|
||||||
@ -989,7 +991,7 @@
|
|||||||
[~ ..^$(pol.all (~(put by pol.all) p.q.hic [hen ~ ~ ~]))]
|
[~ ..^$(pol.all (~(put by pol.all) p.q.hic [hen ~ ~ ~]))]
|
||||||
::
|
::
|
||||||
%rote
|
%rote
|
||||||
~& [%gall-rote p.q.hic]
|
:: ~& [%gall-rote p.q.hic]
|
||||||
?. (~(has by pol.all) p.p.q.hic)
|
?. (~(has by pol.all) p.p.q.hic)
|
||||||
~& [%gall-not-ours p.q.hic]
|
~& [%gall-not-ours p.q.hic]
|
||||||
[~ ..^$]
|
[~ ..^$]
|
||||||
|
Loading…
Reference in New Issue
Block a user