Ticketing now uses modern acks.

This commit is contained in:
C. Guy Yarvin 2015-06-22 17:47:19 -07:00
parent 63a98ae2f3
commit d68bc9f11a
4 changed files with 23 additions and 19 deletions

View File

@ -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
--

View File

@ -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)

View File

@ -1114,6 +1114,7 @@
%them `%e
%wait `%t
%want `%a
%wont `%a :: XX for begin; remove
%warp `%c
==
--

View File

@ -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]>}")
--
--