Skip to content

Commit

Permalink
switch on/off room light by google home
Browse files Browse the repository at this point in the history
  • Loading branch information
knorth55 authored and jsk-fetchuser committed Sep 17, 2020
1 parent d92193e commit c546923
Showing 1 changed file with 10 additions and 2 deletions.
12 changes: 10 additions & 2 deletions jsk_fetch_robot/jsk_fetch_startup/euslisp/navigation-utils.l
Original file line number Diff line number Diff line change
Expand Up @@ -124,7 +124,11 @@
(require :fetch-interface "package://fetcheus/fetch-interface.l")
(fetch-init))
(ros::ros-info "start going to the kitchen.")
(send *ri* :speak-jp "キッチンに向かいます。")
(send *ri* :speak-jp "キッチンに向かいます。" :wait t)
(unix::sleep 1)
(send *ri* :speak-jp "オッケー、グーグル" :wait t)
(send *ri* :speak-jp "電気をつけて" :wait t)
(unix::sleep 1)
;; stove
(let ((succcess-go-to-kitchen))
(dotimes (i n-kitchen-trial)
Expand Down Expand Up @@ -174,4 +178,8 @@
;; (return-from go-to-kitchen nil)))
(ros::ros-info "start going back to the dock.")
(send *ri* :speak-jp "ドックに戻ります。" :wait t)
(auto-dock :n-trial n-dock-trial))
(auto-dock :n-trial n-dock-trial)
(unix::sleep 1)
(send *ri* :speak-jp "オッケー、グーグル" :wait t)
(send *ri* :speak-jp "電気を消して" :wait t)
(unix::sleep 1))

0 comments on commit c546923

Please sign in to comment.