From 67dc9c7c08a4726b69dd04dd969751dd80e816d3 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Tue, 24 Mar 2015 17:34:27 -0700
Subject: [PATCH] Missing guns.

---
 main/app/talk/core.hook       |  3 ++-
 main/gun/helm/begin/gate.hook | 43 +++++++++++++++++++++++++++++++++++
 main/gun/helm/verb/gate.hook  | 12 ++++++++++
 3 files changed, 57 insertions(+), 1 deletion(-)
 create mode 100644 main/gun/helm/begin/gate.hook
 create mode 100644 main/gun/helm/verb/gate.hook

diff --git a/main/app/talk/core.hook b/main/app/talk/core.hook
index 8348d0a17..72c95dee7 100644
--- a/main/app/talk/core.hook
+++ b/main/app/talk/core.hook
@@ -11,7 +11,7 @@
 =>  |%                                                  ::  structures
     ++  town                                            ::  all client state
       $:  %0                                            ::  version
-          say=console-share                            ::  command lines
+          say=console-share                             ::  command lines
           live=(unit span)                              ::  present story
           stories=(map span story)                      ::  all stories
       ==                                                ::
@@ -574,6 +574,7 @@
   ++  ny-work                                           ::  user command
     |=  jaw=work-construct
     ^+  +>
+    ~&  [%ny-work jaw]
     ?-    -.jaw
         %raze  +>(moz hy-abet:(hy-transmit:(hype moz) [%design p.jaw ~]))
         %tune  (ny-tune p.jaw)
diff --git a/main/gun/helm/begin/gate.hook b/main/gun/helm/begin/gate.hook
new file mode 100644
index 000000000..3faa32705
--- /dev/null
+++ b/main/gun/helm/begin/gate.hook
@@ -0,0 +1,43 @@
+::
+::::  /hook/gate/begin/helm/gun
+  ::
+/?  314
+/-  *console
+::
+::::
+  !:
+=>  |%
+    ++  begs  ,[his=@p tic=@p eny=@t ges=gens]
+    --
+|=  $:  [now=@da bec=beak]
+        [~ ~]
+    ==
+^-  (console-result (cask begs))
+%+  console-lo
+  [%& %helm-begin "your ship: ~"]
+%+  console-go  fed:ag
+|=  his=@p
+%+  console-lo
+  [%& %helm-ticket "your ticket: ~"]
+%+  console-go  fed:ag
+|=  tic=@p
+%+  console-lo  
+  [%& %helm-entropy "some entropy: "]
+%+  console-go  (boss 256 (more gon qit))
+|=  eny=@t
+%+  console-so  %helm-begin
+:*  his
+    tic
+    eny
+::
+    ^-  gens
+    :-  %en
+    =+  can=(clan his)
+    ?-  can
+      %czar  [%czar ~]
+      %duke  [%duke %anon ~]
+      %earl  [%earl (scot %p his)]
+      %king  [%king (scot %p his)]
+      %pawn  [%pawn ~]
+    ==
+==
diff --git a/main/gun/helm/verb/gate.hook b/main/gun/helm/verb/gate.hook
new file mode 100644
index 000000000..8174b4b48
--- /dev/null
+++ b/main/gun/helm/verb/gate.hook
@@ -0,0 +1,12 @@
+::
+::::  /hook/gate/verb/helm/gun
+  ::
+/?  314
+/-  *console
+::
+::::
+  !:
+|=  $:  [now=@da bec=beak]
+        [~ ~]
+    ==
+(console-so %helm-verb ~)