::  Hi, send optional message to a ship
::
::::  /hook/core/hi/bin
  ::
/+    sh-utils
::
::::
  ::
|%
++  sign                                                ::
  $%  $:  %g                                            ::
  $%  [%nice ~]                                         ::
      [%mean p=ares]                                    ::
  ==  ==  ==
++  flog                                                ::  sent to %dill
          $%  [%crud p=@tas q=(list tank)]              ::
              [%text p=tape]                            ::
          ==                                            ::
--
!:
::::
  ::
|_  [hid=hide ~]
++  peer  ,_`.
++  poke--args
  |=  [bone you=ship her=ship mes=?(~ [tex=tape ~])]
  %.  +<
  %+  add-resp
    =+  mez=[%txt !>(?~(mes '' (crip tex.mes)))]
    [%pass /hi/(scot %p her) %g %mess [her /hi] you mez]  
  (add-nice ,_`+>.$)
::
++  poke-txt
  %-  add-nice
  |=  [ost=bone him=ship cor=@t]
  :_  +>.$
  [ost %pass /di %d %flog %text "< {<him>}: {(trip cor)}"]~
::
++  pour
  |=  [ost=bone pax=path sih=sign]
  ?>  ?=([%hi @t ~] pax)
  %.  +<
  %-  add-exit
  %^  add-output  +>.$
    =+  ack=?+(+<.sih "unsuccesful" %nice "succesful")
    rush/tang/[leaf/"hi {(trip i.t.pax)} {ack}"]~
  ,_`+>.$
::
--