mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-11 04:48:00 +03:00
Ticketing now uses modern acks.
This commit is contained in:
parent
63a98ae2f3
commit
d68bc9f11a
@ -102,6 +102,6 @@
|
||||
++ onto-drum (wrap take-onto):from-drum
|
||||
++ peer-drum (wrap peer):from-drum
|
||||
++ quit-drum-phat (wrap quit-phat):from-drum
|
||||
++ went-helm (wrap take-went):from-helm
|
||||
++ woot-helm (wrap take-woot):from-helm
|
||||
++ writ-kiln-sync (wrap take-writ):from-kiln
|
||||
--
|
||||
|
@ -11,6 +11,9 @@
|
||||
== == ::
|
||||
$: %a :: to %ames
|
||||
$% [%kick p=@da] ::
|
||||
== == ::
|
||||
$: %g :: to %gall
|
||||
$% [%deal p=sock q=cush] ::
|
||||
== == ::
|
||||
$: @tas :: to any
|
||||
$% [%init p=@p] ::
|
||||
@ -1707,15 +1710,6 @@
|
||||
:~ [hen [%slip %e %wart p.bon i.t.q.q.bon t.t.q.q.bon r.bon]]
|
||||
==
|
||||
::
|
||||
%ta
|
||||
=+ gox=((hard ,[p=@p q=@pG r=gens s=pass]) r.bon)
|
||||
=+ gus=(need (~(us go ton.fox) p.p.bon))
|
||||
=^ wyl gus (born:gus now gox)
|
||||
=. ton.fox (~(su go ton.fox) gus)
|
||||
:_ fox
|
||||
:~ :- hen
|
||||
[%pass /ta/beginning %a %want p.bon [%r %ta t.t.q.q.bon] `(unit will)`wyl]
|
||||
==
|
||||
%re :: %re
|
||||
:_ fox
|
||||
:~ [hen [%slip %c %wart p.bon i.t.q.q.bon t.t.q.q.bon r.bon]]
|
||||
@ -1758,7 +1752,7 @@
|
||||
%went [~ +>]
|
||||
%mack ?~ +>.sih $(sih [%g %nice ~]) :: XX using old code
|
||||
$(sih [%g %mean `[%mack +>+.sih]])
|
||||
%unto ~|([%ames-unto tea hen +>-.sih] !!)
|
||||
%unto [~ +>]
|
||||
?(%mean %nice) :: XX obsolete
|
||||
?: ?=([%ye ~] tea)
|
||||
[~ +>.$]
|
||||
@ -1784,6 +1778,18 @@
|
||||
^- [(list move) _+>]
|
||||
?: ?=(%crud -.kyz)
|
||||
[[[hen [%slip %d %flog kyz]] ~] +>]
|
||||
?: ?=(%west -.kyz)
|
||||
?> ?=([%ta ~] q.kyz)
|
||||
=+ gox=((hard ,[p=@p q=@pG r=gens s=pass]) r.kyz)
|
||||
=+ gus=(need (~(us go ton.fox) p.p.kyz))
|
||||
=^ wyl gus (born:gus now gox)
|
||||
=. ton.fox (~(su go ton.fox) gus)
|
||||
:_ +>.$
|
||||
=+ ^= pax
|
||||
:+ (scot %p p.p.kyz)
|
||||
(scot %p q.p.kyz)
|
||||
q.kyz
|
||||
[hen %pass pax %g %deal p.kyz %hood %poke %will !>(wyl)]~
|
||||
?: ?=(%wegh -.kyz)
|
||||
~& %ames-weighing
|
||||
[[hen %give %mass wegh]~ +>]
|
||||
@ -1822,9 +1828,6 @@
|
||||
::
|
||||
%wont
|
||||
(~(wise am [now fox]) p.kyz hen q.kyz r.kyz &)
|
||||
::
|
||||
%west
|
||||
!!
|
||||
==
|
||||
=> %_(. fox q.fuy)
|
||||
=| out=(list move)
|
||||
|
@ -1114,6 +1114,7 @@
|
||||
%them `%e
|
||||
%wait `%t
|
||||
%want `%a
|
||||
%wont `%a :: XX for begin; remove
|
||||
%warp `%c
|
||||
==
|
||||
--
|
||||
|
@ -47,7 +47,7 @@
|
||||
[%conf wire dock %load ship term] ::
|
||||
[%flog wire flog] ::
|
||||
[%poke wire dock pear] ::
|
||||
[%want wire sock path *] :: send message
|
||||
[%wont wire sock path *] :: send message
|
||||
== ::
|
||||
++ move (pair bone card) :: user-level move
|
||||
++ pear :: poke fruit
|
||||
@ -72,7 +72,7 @@
|
||||
=+ buz=(shax :(mix (jam ges) eny))
|
||||
=+ loy=(bruw 2.048 buz)
|
||||
%- emit(bur `[his [0 sec:ex:loy]~])
|
||||
[%want /helm/ticket [our (sein his)] /q/ta his tic ges pub:ex:loy]
|
||||
[%wont /helm/ticket [our (sein his)] /a/ta his tic ges pub:ex:loy]
|
||||
::
|
||||
++ poke-init :: initialize
|
||||
|= him=ship =< abet
|
||||
@ -169,8 +169,8 @@
|
||||
|= [way=wire chr=@tD tan=tank] =< abet
|
||||
(emit %flog ~ %text chr ' ' ~(ram re tan))
|
||||
::
|
||||
++ take-went :: result of %want
|
||||
|= [way=path her=ship kay=cape] =< abet
|
||||
(emit %flog ~ %text "went: {<[way kay]>}")
|
||||
++ take-woot :: result of %wont
|
||||
|= [way=wire her=ship cop=coop] =< abet
|
||||
(emit %flog ~ %text "woot: {<[way cop]>}")
|
||||
--
|
||||
--
|
||||
|
Loading…
Reference in New Issue
Block a user