From a5956fdeee5e5fb35e11904527173ad5a7599cc8 Mon Sep 17 00:00:00 2001 From: Matt Holland Date: Tue, 5 May 2026 14:45:39 -0400 Subject: [PATCH] Small refactoring to move responses to existing conditional. --- assistant-droid.lsp | 24 +++++++++++++++--------- 1 file changed, 15 insertions(+), 9 deletions(-) diff --git a/assistant-droid.lsp b/assistant-droid.lsp index c147acd..e080852 100644 --- a/assistant-droid.lsp +++ b/assistant-droid.lsp @@ -1,3 +1,8 @@ +; 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 @@ -5,21 +10,21 @@ [ (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) ] - ) - (if (is-ally? character) - (add-response "I need assistance from your master." contact-owner) - (add-response "Where are we?" location) - (add-response "Where are we going?" destination) - ) - (if (is-enemy? character) - (describe "The droid doesn't react as you approach. It stands staring into the void.") + [ + (is-enemy? character) + (describe "The droid doesn't react as you approach. It stands staring into the void.") (add-response "Hello?" enemy-info) + ] ) ) @@ -31,7 +36,8 @@ (say (concat "You are, Master " (get-name character) ".")) ] [#t - (say (concat "I am owned by " (get-owner self) ".")) + (say (concat "I am owned by " (get-owner self) ".")) + (add-response (concat "I need to speak with " (get-owner self) ".") contact-owner) ] ) )