Changeset 589 for abuse/trunk/data/lisp/general.lspTweet

Timestamp:

May 7, 2011, 4:06:03 PM (11 years ago)

Author:

Sam Hocevar

Message:

data: remove exact duplicate Lisp files, merge all main space Lisp files,
and move most frabs addons to the main data directory.

File:

• abuse/trunk/data/lisp/general.lsp (modified) (1 diff)

abuse/trunk/data/lisp/general.lsp

@@ -67 +67 @@
   (if (eq (aistate) 0)
       (if (activated)
-          (progn
+          (let ((my_type (aitype)))
             (with_object (bg)
-                         (progn
-                           (if (local_player)
-                               (show_help (get_train_msg (aitype))))
-                           (freeze_player 100)))
+                         (if (local_player)
+                             (progn
+                               ;; XXX: Mac Abuse plays voice hint SFXs
+                               ;(play_sound (aref voice_hints my_type))
+                               ;(expire_cache_item (aref voice_hints my_type))
+                               (show_help (get_train_msg my_type)))))
             (set_aistate 1)
             T)