From 1515de98c393fe573360a1b61a24bff5743e02c8 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Wed, 20 May 2015 12:17:52 -0700
Subject: [PATCH] changed to :bit+send 0cADDRESS 'BTC-amount'

---
 base/ape/bit/core.hook      | 10 +++++++++-
 base/cat/bit/send/gate.hook |  2 +-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/base/ape/bit/core.hook b/base/ape/bit/core.hook
index ff3cce840f..a6b37f6354 100644
--- a/base/ape/bit/core.hook
+++ b/base/ape/bit/core.hook
@@ -83,7 +83,15 @@ $:  client-id=(unit ,@t)   app-secret=(unit ,@t)
   ^-  move
   [ost %send way [his app.hid] %poke mez]
 ::
-++  poke-bit-send                        ::  send to ship
+++  poke-bit-send                        ::  send to address
+  |=  [[ost=bone @] addr=@uc amount=@t]
+  :_  +>.$
+  :_  ~
+  =+  info=[to/s/(rsh 3 2 (scot %uc addr)) amount/s/amount ~]
+  =+  jon=(joba %transaction (jobe info))
+  (api-call ost /send /transactions/'send_money' %post jon)
+::
+++  poke-bit-ship-send                        ::  send to ship
   |=  [[ost=bone @] to=ship amount=@t]
   =.  outgoing.vat  (~(put by outgoing.vat) to amount)
   :_  +>.$
diff --git a/base/cat/bit/send/gate.hook b/base/cat/bit/send/gate.hook
index 32d000ced9..a2f951c59a 100644
--- a/base/cat/bit/send/gate.hook
+++ b/base/cat/bit/send/gate.hook
@@ -5,7 +5,7 @@
 ::
 :::::::
   !:
-|=  [^ [to=ship amo=@t ~] ~]
+|=  [^ [to=@uc amo=@t ~] ~]
 [%bit-send to amo]