bump protocol to 1

arvo/ames.hoon

@@ -440,7 +440,7 @@
             vix=(bex +((cut 0 [25 2] mag)))             ::  width of sender
             tay=(cut 0 [27 5] mag)                      ::  message type
         ==
-    ?>  =(0 vez)
+    ?>  =(1 vez)
     ?>  =(chk (end 0 20 (mug bod)))
     :+  [(end 3 wix bod) (cut 3 [wix vix] bod)]
       (kins tay)
@@ -460,7 +460,7 @@
     =+  tay=(ksin q.kec)
     %+  mix
       %+  can  0
-      :~  [3 0]
+      :~  [3 1]
           [20 (mug bod)]
           [2 yax]
           [2 qax]
@@ -1043,7 +1043,7 @@
     ++  gnaw                                            ::    gnaw:am
       |=  [kay=cape ryn=lane pac=rock]                  ::  process packet
       ^-  [p=(list boon) q=fort]
-      ?.  =(0 (end 0 3 pac))  [~ fox]
+      ?.  =(1 (end 0 3 pac))  [~ fox]
       =+  kec=(bite pac)
       ?:  (goop p.p.kec)  [~ fox]
       ?.  (~(has by urb.ton.fox) q.p.kec)

main/app/radio/core.hook

@@ -19,7 +19,7 @@
           [%nice ~]
       ==
     ++  move  ,[p=bone q=(mold note gift)]
-    ++  note  ,~
+    ++  note  ,[%c %info p=@p q=@tas r=nori]            ::  internal edit
     --
 |_  [hid=hide vat=axle]
 ++  grab
@@ -69,9 +69,8 @@
   |=  [ost=bone you=ship ~]
   ^-  [(list move) _+>]
   :_  +>.$
-  %+  turn  (~(tap by sup.hid))
-  |=  [ost=bone her=ship pax=path]
-  [ost %give %mean ~ %reload leaf/"please quit chat and re-enter" ~]
+  =+  paf=/(scot %p our.hid)/try/(scot %da lat.hid)/radio/backlog/jam
+  [ost %pass /jamfile %c %info our.hid (foal paf (jam +<+.+>.$))]~
 ::
 ++  pull
   |=  ost=bone