added :ticket

arvo/clay.hoon

@@ -687,9 +687,7 @@
     |=  [tea=wire hen=duct hin=(hypo sign)]
     ^-  [p=(list move) q=_..^$]
     ?:  ?=([%auto @ @ @ @ ?(%y %v) ~] tea)
-      ~&  %taking-auto
       ?>  ?=(%writ -.+.q.hin)
-      ~&  %taking-auto-writ
       =+  our=(slav %p i.t.tea)
       =*  sud  i.t.t.tea
       =+  her=(slav %p i.t.t.t.tea)

arvo/dill.hoon

@@ -414,7 +414,6 @@
         ?(%init %veer %vega %verb)                          ::  drop-throughs
       +>(mos :_(mos [hen %give +.sih]))
         %writ                                               ::  file exists
-      ~&  >  %dill-writ
       %=    +>.$
           mos
         :_  mos

main/app/ticket/core.hook

@@ -0,0 +1,33 @@
+!:
+|_  [hid=hide ~]
+++  poke-ticket-args
+  |=  [ost=bone you=ship her=@p num=?(~ [p=@ud ~])]
+  :_  +>.$
+  =+  n=?~(num 1 p.num)
+  =+  ^=  sep  ^-  @
+      =+  mir=(clan her)
+      ?+  mir  ~|(%ticket-clan !!)
+        %king  (bex 8)
+        %duke  (bex 16)
+        %earl  (bex 32)
+      ==
+  :-  [ost %give %nice ~]
+  |-
+  ?:  ?=(0 n)  ~
+  =+  ^=  tic
+      (,@p .^(%a (scot %p our.hid) %tick (scot %da lat.hid) (scot %p her) ~))
+  %+  welp
+    (spam ost "{<her>}: {<tic>}")
+  $(her (add sep her), n (dec n))
+++  spam
+  |=  [ost=bone msg=tape]
+  %+  turn  (~(tap by sup.hid))
+  |=  [ost=bone *]
+  :^  ost  %give  %rush
+  :-  %tang  :_  ~
+  leaf/msg
+++  peer
+  |=
+    *
+  `+>
+--

main/mar/ticket-args/door.hook

@@ -0,0 +1,15 @@
+::
+::::  /hoon/core/zing/pro
+  ::
+/?  314
+/-  ticket-args
+|_  arg=ticket-args
+::
+++  grab                                                ::  convert from
+  |%
+  ++  noun                                              ::  convert from %noun
+    |=  src=*
+    ^+  +>+
+    +>+(arg (ticket-args src))
+  --
+--

main/sur/ticket-args/gate.hook

@@ -0,0 +1 @@
+,[her=@p num=?(~ [p=@ud ~])]