77 lines
2.5 KiB
Common Lisp
77 lines
2.5 KiB
Common Lisp
; 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."))
|
|
|
|
) |