Re: [ANN] guile-toxcore

[David Thompson]

David Thompson <address@hidden> writes:

> One of my goals with this project is to write a bot that users can add
> as a friend and use to test text/audio/video chat.  Currently, I have a
> working text chat echo bot.

Here's the config for the example client (examples/client.scm) that
provides the echo bot functionality:

  (use-modules (tox util))
  
  (define tox-bootstrap-nodes
    '(((ip . "192.254.75.98")
       (id . "951C88B7E75C867418ACDB5D273821372BB5BD652740BCDF623A4FA293E75D2F")
       (port . 33445)
       (ipv6? . #t))
      ((ip . "144.76.60.215")
       (id . "04119E835DF3E78BACF0F84235B300546AF8B936F035185E2A8E9E0A67C8924F")
       (port . 33445)
       (ipv6? . #t))
      ((ip . "23.226.230.47")
       (id . "A09162D68618E742FFBCA1C2C70385E6679604B2D80EA6E84AD0996A1AC8A074")
       (port . 33445)
       (ipv6? . #t))
      ((ip . "37.187.20.216")
       (id . "4FD54CFD426A338399767E56FD0F44F5E35FA8C38C8E87C8DC3FEAC0160F8E17")
       (port . 33445)
       (ipv6? . #t))
      ((ip . "54.199.139.199")
       (id . "7F9C31FE850E97CEFD4C4591DF93FC757C7C12549DDD55F8EEAECC34FE76C029")
       (port . 33445)
       (ipv6? . #f))
      ((ip . "37.59.102.176")
       (id . "B98A2CEAA6C6A2FADC2C3632D284318B60FE5375CCB41EFA081AB67F500C1B0B")
       (port . 33445)
       (ipv6? . #t))
      ((ip . "192.210.149.121")
       (id . "F404ABAA1C99A9D37D61AB54898F56793E1DEF8BD46B1038B9D822E8460FAB67")
       (port . 33445)
       (ipv6? . #f))
      ((ip . "37.187.46.132")
       (id . "5EB67C51D3FF5A9D528D242B669036ED2A30F8A60E674C45E7D43010CB2E1331")
       (port . 33445)
       (ipv6? . #t))))
  
  (define (tox-friend-names tox)
    (map (lambda (friend-number)
           (tox-friend-name tox friend-number))
         (tox-friend-list tox)))
  
  (set-tox-name tox "Tox Test Bot")
  (set-tox-status-message tox "Hanging around")
  
  (add-hook! tox-friend-request-hook
             (lambda (tox public-key message)
               (format #t
                       "Friend request:\nClient ID: ~a\nMessage: ~a\n\n"
                       (bytevector->hex-string public-key)
                       message)
             (tox-add-friend-no-request tox public-key)))
  
  (add-hook! tox-message-hook
             (lambda (tox friend message)
               (let ((name (tox-friend-name tox friend))
                     (response (format #f "I received the message: \"~a\""
                                       message)))
                 (format #t "~a says: ~a\n" name message)
                 (tox-send-message tox friend response))))

-- 
David Thompson
Web Developer - Free Software Foundation - http://fsf.org
GPG Key: 0FF1D807
Support the FSF: https://fsf.org/donate