; I encountered an issue. Functions like (get-pilot ship) never seem to return anything.
; This is why I used the droid itself as the focus of the calls. This should work fine, assuming the droid is on the ship. Which is the point of this script.
; I assume this is user-error. And the script may be updated if I discover the issue.

; Change the first argument of get-entity to your ship's ID.
(defvar ship (get-entity 7315656 2))

(defun start
  (cond
   [
    (is-owner? character)
    	(say (concat "Welcome back, Master." ))
      (add-response "Tell me about where we are." location )
    ]
    [
     (is-ally? character)
     (say (concat "Hello, " (get-race character) "! Welcome to " ship "!"))
  	 (add-response "Who is in charge?" pilot)
     (add-response "I need assistance from your master." contact-owner)
     (add-response "Where are we?" location)
  	 (add-response "Where are we going?" destination)
    ]
   [
    (is-enemy? character)
    (describe "The droid doesn't react as you approach. It stands staring into the void.")
    (add-response "Hello?" enemy-info)
   ]
  )
  
)

(defun pilot
  (cond
   [
    (is-owner? character)
    	(say (concat "You are, Master " (get-name character) "."))
   ]
   [#t
  	    (say (concat "I am owned by " (get-owner self) "."))
        (add-response (concat "I need to speak with " (get-owner self) ".") contact-owner)    
   ]
  )
)

(defun location
  (describe "The droid pauses a moment. Reading data from the ship's computer.")
  (cond 
    [
     (is-traveling? self)
      (say "We are currently traveling. Allow me to retrieve our travel information...")
      (destination)
    ]
   	[#t (say (concat "We are currently " (get-current-system)))]
    )
)

(defun destination
  (cond
   [
    (is-traveling? self)
    	(say (concat "We are currently " (get-destination self)))
  		(say (concat "Our expected travel time is " (get-eta self)))
  ]
   [#t (say "We aren't currently traveling") ]
   )
)
(defun enemy-info
  (say (concat "You are entitled to the following information per IFF policy:"))
  (say (concat "You are aboard the " ship "."))
  (say "You may find your access to the ship restricted. I am unable to assist you with access.")
)

(defun contact-owner
  (send-message self (get-owner self) (concat "Master, " (get-name character) " has requested your assistance aboard " ship ". Location follows: " (get-location self)))
  (say (concat "I have contacted Master " (get-owner self)" requesting their assistance. Coordinates have been sent along with your information."))
  
)