forgot to mention take verb was implemented last commit. pulled out into its own file now

interpret.rkt

@@ -1,6 +1,7 @@
 #lang racket/gui
 (require "structs.rkt"
          "look.rkt"
+         "take.rkt"
          "utils.rkt")
 (provide interpret)
 
@@ -29,27 +30,4 @@
           (case verb
             [("LOOK") (look args room1)]
             [("TAKE") (take args room1 plyr)]
-            [else (~a "I don't understand the verb " verb ".")])))))
-
-(define (take args where who)
-  (if (empty? args)
-      "You need to say what to take."
-      (let* ([args-str (string-join args)]
-             [split-str (string-split args-str " FROM ")]
-             [what-str (first split-str)]
-             [from-str (if (= 1 (length split-str))
-                           '()
-                           (last split-str))]
-             [from (if (empty? from-str)
-                       where
-                       (find-object-by-name from-str where))]
-             [what (find-object-by-name what-str from)])
-        (when (empty? from-str)
-          (set! from-str (object-name where)))
-        (if what
-            (if (creature? what)
-                "You can't take a living thing."
-                (if (entity? what)
-                    "You can't take something with an inventory."
-                    (move-obj! what from who)))
-            (~a "There isn't a \"" what-str "\" in this area.")))))
+            [else (~a "I don't understand the verb " verb ".")])))))

take.rkt

@@ -0,0 +1,27 @@
+#lang racket/gui
+(require "utils.rkt"
+         "structs.rkt")
+(provide take)
+
+(define (take args where who)
+  (if (empty? args)
+      "You need to say what to take."
+      (let* ([args-str (string-join args)]
+             [split-str (string-split args-str " FROM ")]
+             [what-str (first split-str)]
+             [from-str (if (= 1 (length split-str))
+                           '()
+                           (last split-str))]
+             [from (if (empty? from-str)
+                       where
+                       (find-object-by-name from-str where))]
+             [what (find-object-by-name what-str from)])
+        (when (empty? from-str)
+          (set! from-str (object-name where)))
+        (if what
+            (if (creature? what)
+                "You can't take a living thing."
+                (if (entity? what)
+                    "You can't take something with an inventory."
+                    (move-obj! what from who)))
+            (~a "There isn't a \"" what-str "\" in this area.")))))